Commit dc8e8b07 authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

(MOST_NEGATIVE_FIXNUM, MOST_POSITIVE_FIXNUM)

(FIXNUM_OVERFLOW_P): New macros.
parent 9542e3f5
......@@ -387,6 +387,10 @@ extern size_t pure_size;
#define make_number(N) \
((((EMACS_INT) (N)) & VALMASK) | ((EMACS_INT) Lisp_Int) << VALBITS)
#define make_fixnum(x) make_number (x)
#define MOST_NEGATIVE_FIXNUM ((EMACS_INT) 1 << (VALBITS - 1))
#define MOST_POSITIVE_FIXNUM (MOST_NEGATIVE_FIXNUM - 1)
/* During garbage collection, XGCTYPE must be used for extracting types
so that the mark bit is ignored. XMARKBIT accesses the markbit.
Markbits are used only in particular slots of particular structure types.
......@@ -468,6 +472,16 @@ extern Lisp_Object make_number ();
#endif /* NO_UNION_TYPE */
/* Largest and smallest representable fixnum values. */
#define MOST_NEGATIVE_FIXNUM ((EMACS_INT) 1 << (VALBITS - 1))
#define MOST_POSITIVE_FIXNUM (MOST_NEGATIVE_FIXNUM - 1)
/* Value is non-zero if C integer I doesn't fit into a Lisp fixnum. */
#define FIXNUM_OVERFLOW_P(i) \
((i) > MOST_POSITIVE_FIXNUM || (i) < MOST_NEGATIVE_FIXNUM)
/* Extract a value or address from a Lisp_Object. */
#define XCONS(a) (eassert (GC_CONSP(a)),(struct Lisp_Cons *) XPNTR(a))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment