diff options
| author | Gerd Moellmann | 2001-10-07 00:14:18 +0000 |
|---|---|---|
| committer | Gerd Moellmann | 2001-10-07 00:14:18 +0000 |
| commit | d9eb1c3d5284b6a3dc6ceba6e6bebb799ebe6fd2 (patch) | |
| tree | c24f32c35986bc3f20b9d279bedeabe143c08398 /src | |
| parent | 319f0b4f5f628d548b91343966775ba69d3e807f (diff) | |
| download | emacs-d9eb1c3d5284b6a3dc6ceba6e6bebb799ebe6fd2.tar.gz emacs-d9eb1c3d5284b6a3dc6ceba6e6bebb799ebe6fd2.zip | |
Fix last change.
Diffstat (limited to 'src')
| -rw-r--r-- | src/lisp.h | 11 |
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 | ||