diff options
Diffstat (limited to 'admin')
| -rw-r--r-- | admin/ChangeLog | 5 | ||||
| -rw-r--r-- | admin/coccinelle/overlay.cocci | 28 |
2 files changed, 33 insertions, 0 deletions
diff --git a/admin/ChangeLog b/admin/ChangeLog index 8ca17e58b30..54ac7b4edd7 100644 --- a/admin/ChangeLog +++ b/admin/ChangeLog @@ -1,5 +1,10 @@ 2012-08-01 Dmitry Antipov <dmantipov@yandex.ru> + * coccinelle/overlay.cocci: Semantic patch to replace direct + access to Lisp_Object members of struct Lisp_Overlay to MVAR. + +2012-08-01 Dmitry Antipov <dmantipov@yandex.ru> + * coccinelle/symbol.cocci: Semantic patch to replace direct access to Lisp_Object members of struct Lisp_Symbol to SVAR. diff --git a/admin/coccinelle/overlay.cocci b/admin/coccinelle/overlay.cocci new file mode 100644 index 00000000000..2be141e8332 --- /dev/null +++ b/admin/coccinelle/overlay.cocci @@ -0,0 +1,28 @@ +// Change direct access to Lisp_Object fields of struct +// Lisp_Overlay to MVAR. Beginning M denotes "misc", and +// MVAR is likely to be used for other second-class objects. +@@ +struct Lisp_Overlay *V; +Lisp_Object O; +@@ +( +- V->start ++ MVAR (V, start) +| +- V->end ++ MVAR (V, end) +| +- V->plist ++ MVAR (V, plist) + +| + +- XOVERLAY (O)->start ++ MVAR (XOVERLAY (O), start) +| +- XOVERLAY (O)->end ++ MVAR (XOVERLAY (O), end) +| +- XOVERLAY (O)->plist ++ MVAR (XOVERLAY (O), plist) +) |