From 177efd15635f88108eac2d34d251ad0ca09ad79f Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Wed, 4 Jan 1995 22:41:16 +0000 Subject: [PATCH] [EXPLICIT_SIGN_EXTEND] (XINT): Use symbolic constants. --- src/lisp.h | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 */ -- 2.39.5