Mercurial > emacs
changeset 9333:925795f1a594
(Fmodify_syntax_entry): Don't use XFASTINT as an lvalue.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Tue, 04 Oct 1994 17:32:17 +0000 |
| parents | 1ff5359ac932 |
| children | d949b1150e25 |
| files | src/syntax.c |
| diffstat | 1 files changed, 9 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- a/src/syntax.c Tue Oct 04 17:22:08 1994 +0000 +++ b/src/syntax.c Tue Oct 04 17:32:17 1994 +0000 @@ -291,7 +291,7 @@ { register unsigned char *p, match; register enum syntaxcode code; - Lisp_Object val; + int val; CHECK_NUMBER (c, 0); CHECK_STRING (newentry, 1); @@ -309,36 +309,36 @@ if (match) p++; if (match == ' ') match = 0; - XSETFASTINT (val, (match << 8) + (int) code); + val = (match << 8) + (int) code; while (*p) switch (*p++) { case '1': - XFASTINT (val) |= 1 << 16; + val |= 1 << 16; break; case '2': - XFASTINT (val) |= 1 << 17; + val |= 1 << 17; break; case '3': - XFASTINT (val) |= 1 << 18; + val |= 1 << 18; break; case '4': - XFASTINT (val) |= 1 << 19; + val |= 1 << 19; break; case 'p': - XFASTINT (val) |= 1 << 20; + val |= 1 << 20; break; case 'b': - XFASTINT (val) |= 1 << 21; + val |= 1 << 21; break; } - XVECTOR (syntax_table)->contents[0xFF & XINT (c)] = val; + XSETFASTINT (XVECTOR (syntax_table)->contents[0xFF & XINT (c)], val); return Qnil; }