Mercurial > emacs

changeset 9328:4db4768d5857

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(XFASTINT): Changed to non-lvalue syntax, to ensure that callers will use XSETFASTINT instead.
author Karl Heuer <kwzh@gnu.org>
date Tue, 04 Oct 1994 17:04:39 +0000
parents b3398cf56fba
children 4e1048594e7f
files src/lisp.h
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/src/lisp.h	Tue Oct 04 16:46:24 1994 +0000
+++ b/src/lisp.h	Tue Oct 04 17:04:39 1994 +0000
@@ -316,7 +316,7 @@
 /* For integers known to be positive, XFASTINT provides fast retrieval
    and XSETFASTINT provides fast storage.  This takes advantage of the
    fact that Lisp_Int is 0.  */
-#define XFASTINT(a) (a)
+#define XFASTINT(a) ((a) + 0)
 #define XSETFASTINT(a, b) ((a) = (b))
 
 /* Extract the value of a Lisp_Object as a signed integer.  */
@@ -400,7 +400,7 @@
 /* For integers known to be positive, XFASTINT provides fast retrieval
    and XSETFASTINT provides fast storage.  This takes advantage of the
    fact that Lisp_Int is 0.  */
-#define XFASTINT(a) ((a).i)
+#define XFASTINT(a) ((a).i + 0)
 #define XSETFASTINT(a, b) ((a).i = (b))
 
 #ifdef EXPLICIT_SIGN_EXTEND