# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1068045848 0
# Node ID 3d26cfe32fa77fc654f6b2ff2d787b72931974d8
# Parent  8fe47ef85f890474bb75d124ac53212152f9af6a
(XINT): Move the cast to clarify what is going on.

diff -r 8fe47ef85f89 -r 3d26cfe32fa7 src/lisp.h
--- a/src/lisp.h	Wed Nov 05 13:28:48 2003 +0000
+++ b/src/lisp.h	Wed Nov 05 15:24:08 2003 +0000
@@ -335,8 +335,8 @@
 /* Extract the value of a Lisp_Object as a signed integer.  */
 
 #ifndef XINT   /* Some machines need to do this differently.  */
-#define XINT(a) ((EMACS_INT) (((a) << (BITS_PER_EMACS_INT - VALBITS)) \
-			      >> (BITS_PER_EMACS_INT - VALBITS)))
+#define XINT(a) ((((EMACS_INT) (a)) << (BITS_PER_EMACS_INT - VALBITS))	\
+		 >> (BITS_PER_EMACS_INT - VALBITS))
 #endif
 
 /* Extract the value as an unsigned integer.  This is a basis