diff options
Diffstat (limited to 'admin')
| -rw-r--r-- | admin/coccinelle/symbol.cocci | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/admin/coccinelle/symbol.cocci b/admin/coccinelle/symbol.cocci new file mode 100644 index 00000000000..c988fabc256 --- /dev/null +++ b/admin/coccinelle/symbol.cocci | |||
| @@ -0,0 +1,32 @@ | |||
| 1 | // Change direct access to Lisp_Object fields of struct Lisp_Symbol to SVAR. | ||
| 2 | @@ | ||
| 3 | struct Lisp_Symbol *S; | ||
| 4 | Lisp_Object O; | ||
| 5 | @@ | ||
| 6 | ( | ||
| 7 | - S->xname | ||
| 8 | + SVAR (S, xname) | ||
| 9 | | | ||
| 10 | - S->val.value | ||
| 11 | + SVAR (S, val.value) | ||
| 12 | | | ||
| 13 | - S->function | ||
| 14 | + SVAR (S, function) | ||
| 15 | | | ||
| 16 | - S->plist | ||
| 17 | + SVAR (S, plist) | ||
| 18 | |||
| 19 | | | ||
| 20 | |||
| 21 | - XSYMBOL (O)->xname | ||
| 22 | + SVAR (XSYMBOL (O), xname) | ||
| 23 | | | ||
| 24 | - XSYMBOL (O)->val.value | ||
| 25 | + SVAR (XSYMBOL (O), val.value) | ||
| 26 | | | ||
| 27 | - XSYMBOL (O)->function | ||
| 28 | + SVAR (XSYMBOL (O), function) | ||
| 29 | | | ||
| 30 | - XSYMBOL (O)->plist | ||
| 31 | + SVAR (XSYMBOL (O), plist) | ||
| 32 | ) | ||