[EXPLICIT_SIGN_EXTEND] (XINT): Use symbolic constants.

diff --git a/src/lisp.h b/src/lisp.h
index 71ac265fa61fcf74b72600dd0a4fe8c2afcb8c38..a154e4d5ce4d8c2b198fc1590908f5f24b3a6ca1 100644 (file)
--- 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 */