aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorGerd Moellmann2001-10-07 00:14:18 +0000
committerGerd Moellmann2001-10-07 00:14:18 +0000
commitd9eb1c3d5284b6a3dc6ceba6e6bebb799ebe6fd2 (patch)
treec24f32c35986bc3f20b9d279bedeabe143c08398 /src
parent319f0b4f5f628d548b91343966775ba69d3e807f (diff)
downloademacs-d9eb1c3d5284b6a3dc6ceba6e6bebb799ebe6fd2.tar.gz
emacs-d9eb1c3d5284b6a3dc6ceba6e6bebb799ebe6fd2.zip
Fix last change.
Diffstat (limited to 'src')
-rw-r--r--src/lisp.h11
1 files 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;
387#define make_number(N) \ 387#define make_number(N) \
388 ((((EMACS_INT) (N)) & VALMASK) | ((EMACS_INT) Lisp_Int) << VALBITS) 388 ((((EMACS_INT) (N)) & VALMASK) | ((EMACS_INT) Lisp_Int) << VALBITS)
389 389
390#define make_fixnum(x) make_number (x)
391#define MOST_NEGATIVE_FIXNUM ((EMACS_INT) 1 << (VALBITS - 1))
392#define MOST_POSITIVE_FIXNUM (MOST_NEGATIVE_FIXNUM - 1)
393
394/* During garbage collection, XGCTYPE must be used for extracting types 390/* During garbage collection, XGCTYPE must be used for extracting types
395 so that the mark bit is ignored. XMARKBIT accesses the markbit. 391 so that the mark bit is ignored. XMARKBIT accesses the markbit.
396 Markbits are used only in particular slots of particular structure types. 392 Markbits are used only in particular slots of particular structure types.
@@ -472,10 +468,11 @@ extern Lisp_Object make_number ();
472 468
473#endif /* NO_UNION_TYPE */ 469#endif /* NO_UNION_TYPE */
474 470
475/* Largest and smallest representable fixnum values. */ 471/* Largest and smallest representable fixnum values. These are the C
472 values. */
476 473
477#define MOST_NEGATIVE_FIXNUM ((EMACS_INT) 1 << (VALBITS - 1)) 474#define MOST_NEGATIVE_FIXNUM - ((EMACS_INT) 1 << (VALBITS - 1))
478#define MOST_POSITIVE_FIXNUM (MOST_NEGATIVE_FIXNUM - 1) 475#define MOST_POSITIVE_FIXNUM (((EMACS_INT) 1 << (VALBITS - 1)) - 1)
479 476
480/* Value is non-zero if C integer I doesn't fit into a Lisp fixnum. */ 477/* Value is non-zero if C integer I doesn't fit into a Lisp fixnum. */
481 478