diff options
author | Karl Heuer <kwzh@gnu.org> | 1994-10-04 15:38:56 +0000 |
---|---|---|
committer | Karl Heuer <kwzh@gnu.org> | 1994-10-04 15:38:56 +0000 |
commit | c2f4009d51b06e6bbbf1afa700bd798017b8cb51 (patch) | |
tree | 1abe99cf16734d1b516b72886a1b419d302906d2 /src/bytecode.c | |
parent | 5a4739106f881dff1a65dd42477123a11b0098b2 (diff) | |
download | emacs-c2f4009d51b06e6bbbf1afa700bd798017b8cb51.tar.gz |
(Fbyte_code): Don't use XFASTINT as an lvalue.
Diffstat (limited to 'src/bytecode.c')
-rw-r--r-- | src/bytecode.c | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/src/bytecode.c b/src/bytecode.c index 86b2cbfbd59..a6230a6142a 100644 --- a/src/bytecode.c +++ b/src/bytecode.c @@ -844,7 +844,7 @@ If the third argument is incorrect, Emacs may crash.") break; case Bpoint: - XFASTINT (v1) = point; + XSETFASTINT (v1, point); PUSH (v1); break; @@ -863,12 +863,12 @@ If the third argument is incorrect, Emacs may crash.") break; case Bpoint_max: - XFASTINT (v1) = ZV; + XSETFASTINT (v1, ZV); PUSH (v1); break; case Bpoint_min: - XFASTINT (v1) = BEGV; + XSETFASTINT (v1, BEGV); PUSH (v1); break; @@ -877,17 +877,17 @@ If the third argument is incorrect, Emacs may crash.") break; case Bfollowing_char: - XFASTINT (v1) = PT == ZV ? 0 : FETCH_CHAR (point); + XSETFASTINT (v1, PT == ZV ? 0 : FETCH_CHAR (point)); PUSH (v1); break; case Bpreceding_char: - XFASTINT (v1) = point <= BEGV ? 0 : FETCH_CHAR (point - 1); + XSETFASTINT (v1, point <= BEGV ? 0 : FETCH_CHAR (point - 1)); PUSH (v1); break; case Bcurrent_column: - XFASTINT (v1) = current_column (); + XSETFASTINT (v1, current_column ()); PUSH (v1); break; @@ -952,7 +952,8 @@ If the third argument is incorrect, Emacs may crash.") case Bchar_syntax: CHECK_NUMBER (TOP, 0); - XFASTINT (TOP) = syntax_code_spec[(int) SYNTAX (0xFF & XINT (TOP))]; + XSETFASTINT (TOP, + syntax_code_spec[(int) SYNTAX (0xFF & XINT (TOP))]); break; case Bbuffer_substring: |