From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 5 Nov 2003 15:24:08 +0000 (+0000)
Subject: (XINT): Move the cast to clarify what is going on.
X-Git-Tag: ttn-vms-21-2-B4~8417
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=73a662efa92faabade68cfa495dbb1dde0dc07ec;p=emacs.git

(XINT): Move the cast to clarify what is going on.
---

diff --git a/src/lisp.h b/src/lisp.h
index df22444560b..8cacd349111 100644
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -335,8 +335,8 @@ enum pvec_type
 /* 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