Commit e43ec785 authored by Karl Heuer's avatar Karl Heuer
Browse files

(XFASTINT): Changed to non-lvalue syntax, to ensure that callers will use

XSETFASTINT instead.
parent d4edf047
...@@ -316,7 +316,7 @@ you lose ...@@ -316,7 +316,7 @@ you lose
/* For integers known to be positive, XFASTINT provides fast retrieval /* For integers known to be positive, XFASTINT provides fast retrieval
and XSETFASTINT provides fast storage. This takes advantage of the and XSETFASTINT provides fast storage. This takes advantage of the
fact that Lisp_Int is 0. */ fact that Lisp_Int is 0. */
#define XFASTINT(a) (a) #define XFASTINT(a) ((a) + 0)
#define XSETFASTINT(a, b) ((a) = (b)) #define XSETFASTINT(a, b) ((a) = (b))
/* Extract the value of a Lisp_Object as a signed integer. */ /* Extract the value of a Lisp_Object as a signed integer. */
...@@ -400,7 +400,7 @@ extern int pure_size; ...@@ -400,7 +400,7 @@ extern int pure_size;
/* For integers known to be positive, XFASTINT provides fast retrieval /* For integers known to be positive, XFASTINT provides fast retrieval
and XSETFASTINT provides fast storage. This takes advantage of the and XSETFASTINT provides fast storage. This takes advantage of the
fact that Lisp_Int is 0. */ fact that Lisp_Int is 0. */
#define XFASTINT(a) ((a).i) #define XFASTINT(a) ((a).i + 0)
#define XSETFASTINT(a, b) ((a).i = (b)) #define XSETFASTINT(a, b) ((a).i = (b))
#ifdef EXPLICIT_SIGN_EXTEND #ifdef EXPLICIT_SIGN_EXTEND
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment