diff options
| author | Andreas Schwab <[email protected]> | 2009-10-23 20:56:30 +0000 |
|---|---|---|
| committer | Andreas Schwab <[email protected]> | 2009-10-23 20:56:30 +0000 |
| commit | 7b792fc98da135524d423fd1ab4d269466b1cb6f (patch) | |
| tree | 4579c8e6b7529750f751c1fdd3fe34d302c6f3b1 | |
| parent | 6798b799dfc39a6b843217a4b81f5913485c4cfa (diff) | |
(FIXNUM_OVERFLOW_P): Remove cast to avoid overflow.
| -rw-r--r-- | src/ChangeLog | 2 | ||||
| -rw-r--r-- | src/lisp.h | 6 |
2 files changed, 5 insertions, 3 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 8d5d29a106..a6f318816e 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,5 +1,7 @@ 2009-10-23 Andreas Schwab <[email protected]> + * lisp.h (FIXNUM_OVERFLOW_P): Remove cast to avoid overflow. + * puresize.h (PURESIZE_RATIO): Decrease to 11/7. 2009-10-23 Chong Yidong <[email protected]> diff --git a/src/lisp.h b/src/lisp.h index 12f06ad6ed..3838aff753 100644 --- a/src/lisp.h +++ b/src/lisp.h @@ -486,11 +486,11 @@ extern size_t pure_size; I.e. (x & INTMASK) == XUINT (make_number (x)). */ #define INTMASK ((((EMACS_INT) 1) << VALBITS) - 1) -/* Value is non-zero if C integer I doesn't fit into a Lisp fixnum. */ +/* Value is non-zero if I doesn't fit into a Lisp fixnum. */ #define FIXNUM_OVERFLOW_P(i) \ - ((EMACS_INT)(i) > MOST_POSITIVE_FIXNUM \ - || (EMACS_INT) (i) < MOST_NEGATIVE_FIXNUM) + ((i) > MOST_POSITIVE_FIXNUM \ + || (i) < MOST_NEGATIVE_FIXNUM) /* Extract a value or address from a Lisp_Object. */ |