aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--src/lisp.h8
1 files changed, 7 insertions, 1 deletions
diff --git a/src/lisp.h b/src/lisp.h
index 1a8c3a0fe49..78843483edc 100644
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -233,7 +233,9 @@ extern bool suppress_checking EXTERNALLY_VISIBLE;
233 233
234enum Lisp_Bits 234enum Lisp_Bits
235 { 235 {
236 GCALIGNMENT = 1 << GCTYPEBITS, 236 /* 2**GCTYPEBITS. This must be a macro that expands to a literal
237 integer constant, for older versions of GCC (through at least 4.9). */
238#define GCALIGNMENT 8
237 239
238 /* Number of bits in a Lisp_Object value, not counting the tag. */ 240 /* Number of bits in a Lisp_Object value, not counting the tag. */
239 VALBITS = EMACS_INT_WIDTH - GCTYPEBITS, 241 VALBITS = EMACS_INT_WIDTH - GCTYPEBITS,
@@ -245,6 +247,10 @@ enum Lisp_Bits
245 FIXNUM_BITS = VALBITS + 1 247 FIXNUM_BITS = VALBITS + 1
246 }; 248 };
247 249
250#if GCALIGNMENT != 1 << GCTYPEBITS
251# error "GCALIGNMENT and GCTYPEBITS are inconsistent"
252#endif
253
248/* The maximum value that can be stored in a EMACS_INT, assuming all 254/* The maximum value that can be stored in a EMACS_INT, assuming all
249 bits other than the type bits contribute to a nonnegative signed value. 255 bits other than the type bits contribute to a nonnegative signed value.
250 This can be used in #if, e.g., '#if USE_LSB_TAG' below expands to an 256 This can be used in #if, e.g., '#if USE_LSB_TAG' below expands to an