From d9eb1c3d5284b6a3dc6ceba6e6bebb799ebe6fd2 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Sun, 7 Oct 2001 00:14:18 +0000 Subject: [PATCH] Fix last change. --- src/lisp.h | 11 ++++------- 1 file changed, 4 insertions(+), 7 deletions(-) diff --git a/src/lisp.h b/src/lisp.h index 2080cf6b4e2..8c6e6e745e1 100644 --- a/src/lisp.h +++ b/src/lisp.h @@ -387,10 +387,6 @@ 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. @@ -472,10 +468,11 @@ extern Lisp_Object make_number (); #endif /* NO_UNION_TYPE */ -/* Largest and smallest representable fixnum values. */ +/* Largest and smallest representable fixnum values. These are the C + values. */ -#define MOST_NEGATIVE_FIXNUM ((EMACS_INT) 1 << (VALBITS - 1)) -#define MOST_POSITIVE_FIXNUM (MOST_NEGATIVE_FIXNUM - 1) +#define MOST_NEGATIVE_FIXNUM - ((EMACS_INT) 1 << (VALBITS - 1)) +#define MOST_POSITIVE_FIXNUM (((EMACS_INT) 1 << (VALBITS - 1)) - 1) /* Value is non-zero if C integer I doesn't fit into a Lisp fixnum. */ -- 2.39.2