Mercurial > emacs
diff src/syntax.c @ 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 | 4be3f8f9f090 |
children | 0b9c70f56cf8 |
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; }