mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-05 11:45:45 +00:00
Code Issues Releases Activity

Commit forgotten admin/coccinelle/symbol.cocci.

Browse Source
This commit is contained in:
Dmitry Antipov 2012-08-01 12:18:22 +04:00
parent 8271d59040
commit 015a2738eb
1 changed files with 32 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
admin/coccinelle/symbol.cocci Normal file
View File

@ -0,0 +1,32 @@
// Change direct access to Lisp_Object fields of struct Lisp_Symbol to SVAR.
@@
struct Lisp_Symbol *S;
Lisp_Object O;
@@
(
- S->xname
+ SVAR (S, xname)
|
- S->val.value
+ SVAR (S, val.value)
|
- S->function
+ SVAR (S, function)
|
- S->plist
+ SVAR (S, plist)
|
- XSYMBOL (O)->xname
+ SVAR (XSYMBOL (O), xname)
|
- XSYMBOL (O)->val.value
+ SVAR (XSYMBOL (O), val.value)
|
- XSYMBOL (O)->function
+ SVAR (XSYMBOL (O), function)
|
- XSYMBOL (O)->plist
+ SVAR (XSYMBOL (O), plist)
)