From 68be917ded75e3147180af2a0a51fc8c89d042d8 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Tue, 31 Oct 1995 02:34:16 +0000 Subject: (BITS_PER_SHORT, BITS_PER_INT, BITS_PER_LONG): Rename from SHORTBITS, INTBITS, LONGBITS. --- src/lisp.h | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/lisp.h') diff --git a/src/lisp.h b/src/lisp.h index 3a445446ec0..0c864c46e3c 100644 --- a/src/lisp.h +++ b/src/lisp.h @@ -102,7 +102,7 @@ enum gdb_lisp_params { gdb_valbits = VALBITS, gdb_gctypebits = GCTYPEBITS, - gdb_emacs_intbits = sizeof (EMACS_INT) * INTBITS / sizeof (int), + gdb_emacs_intbits = sizeof (EMACS_INT) * BITS_PER_CHAR, #ifdef DATA_SEG_BITS gdb_data_seg_bits = DATA_SEG_BITS #else @@ -271,7 +271,7 @@ enum pvec_type /* Extract the value of a Lisp_Object as a signed integer. */ #ifndef XINT /* Some machines need to do this differently. */ -#define XINT(a) (((a) << (INTBITS-VALBITS)) >> (INTBITS-VALBITS)) +#define XINT(a) (((a) << (BITS_PER_INT-VALBITS)) >> (BITS_PER_INT-VALBITS)) #endif /* Extract the value as an unsigned integer. This is a basis @@ -316,7 +316,7 @@ extern int pure_size; #define XGCTYPE(a) ((enum Lisp_Type) (((a) >> VALBITS) & GCTYPEMASK)) #endif -#if VALBITS + GCTYPEBITS == INTBITS - 1 +#if VALBITS + GCTYPEBITS == BITS_PER_INT - 1 /* Make XMARKBIT faster if mark bit is sign bit. */ #ifndef XMARKBIT #define XMARKBIT(a) ((a) < 0) @@ -354,7 +354,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 << (INTBITS-VALBITS)) >> (INTBITS-VALBITS)) +#define XINT(a) (((a).i << (BITS_PER_INT-VALBITS)) >> (BITS_PER_INT-VALBITS)) #else #define XINT(a) ((a).s.val) #endif /* EXPLICIT_SIGN_EXTEND */ -- cgit v1.2.3