diff options
| author | Karl Heuer <kwzh@gnu.org> | 1995-01-04 22:41:16 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1995-01-04 22:41:16 +0000 |
| commit | bf39ca65ea90863495dab39f6648b7c2aa951ec0 (patch) | |
| tree | 40ffe9b0f8105f91b629b2e0e7cd7ab829f934de | |
| parent | 5728c0f0c8767bd742c685b4e9dd28b8af070c69 (diff) | |
| download | emacs-bf39ca65ea90863495dab39f6648b7c2aa951ec0.tar.gz | |
[EXPLICIT_SIGN_EXTEND] (XINT): Use symbolic constants.
| -rw-r--r-- | src/lisp.h | 2 |
1 files changed, 1 insertions, 1 deletions
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 */ |