diff options
| -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 8d5d29a106b..a6f318816e9 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,5 +1,7 @@ 2009-10-23 Andreas Schwab <schwab@linux-m68k.org> + * lisp.h (FIXNUM_OVERFLOW_P): Remove cast to avoid overflow. + * puresize.h (PURESIZE_RATIO): Decrease to 11/7. 2009-10-23 Chong Yidong <cyd@stupidchicken.com> diff --git a/src/lisp.h b/src/lisp.h index 12f06ad6eda..3838aff7531 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. */ |