admin/coccinelle/symbol.cocci

   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 )