From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 4 Jan 1995 22:41:16 +0000 (+0000)
Subject: [EXPLICIT_SIGN_EXTEND] (XINT): Use symbolic constants.
X-Git-Tag: emacs-19.34~5517
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=177efd15635f88108eac2d34d251ad0ca09ad79f;p=emacs.git

[EXPLICIT_SIGN_EXTEND] (XINT): Use symbolic constants.
---

diff --git a/src/lisp.h b/src/lisp.h
index 71ac265fa61..a154e4d5ce4 100644
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -338,7 +338,7 @@ extern int pure_size;
 
 #ifdef EXPLICIT_SIGN_EXTEND
 /* Make sure we sign-extend; compilers have been known to fail to do so.  */
-#define XINT(a) (((a).i << 8) >> 8)
+#define XINT(a) (((a).i << (INTBITS-VALBITS)) >> (INTBITS-VALBITS))
 #else
 #define XINT(a) ((a).s.val)
 #endif /* EXPLICIT_SIGN_EXTEND */