mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Fix last change.

Browse source
This commit is contained in:
Gerd Moellmann 2001-10-07 00:14:18 +00:00
parent 319f0b4f5f
commit d9eb1c3d52
1 changed files with 4 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

11
src/lisp.h
View file

@ -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. */