Mercurial > emacs
changeset 39640:6f7166fc8eec
Fix last change.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Sun, 07 Oct 2001 00:14:18 +0000 |
| parents | f5ac153e5b5c |
| children | 39d3627c1c99 |
| files | src/lisp.h |
| diffstat | 1 files changed, 5 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/src/lisp.h Sat Oct 06 23:46:55 2001 +0000 +++ b/src/lisp.h Sun Oct 07 00:14:18 2001 +0000 @@ -387,10 +387,6 @@ #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 @@ #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) +/* Largest and smallest representable fixnum values. These are the C + values. */ + +#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. */