changeset 10339:a54c5191fb97

[EXPLICIT_SIGN_EXTEND] (XINT): Use symbolic constants.
author Karl Heuer <kwzh@gnu.org>
date Wed, 04 Jan 1995 22:41:16 +0000
parents 305e847ecc5b
children ef58c7a5a4d6
files src/lisp.h
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/src/lisp.h	Wed Jan 04 22:02:59 1995 +0000
+++ b/src/lisp.h	Wed Jan 04 22:41:16 1995 +0000
@@ -338,7 +338,7 @@
 
 #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 */