Mercurial > emacs
changeset 105732:39a36d9d9d93
(FIXNUM_OVERFLOW_P): Remove cast to avoid overflow.
| author | Andreas Schwab <schwab@linux-m68k.org> |
|---|---|
| date | Fri, 23 Oct 2009 20:56:30 +0000 |
| parents | f888f3b57b89 |
| children | 1528571f6bfd |
| files | src/ChangeLog src/lisp.h |
| diffstat | 2 files changed, 5 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/src/ChangeLog Fri Oct 23 18:39:48 2009 +0000 +++ b/src/ChangeLog Fri Oct 23 20:56:30 2009 +0000 @@ -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>
--- a/src/lisp.h Fri Oct 23 18:39:48 2009 +0000 +++ b/src/lisp.h Fri Oct 23 20:56:30 2009 +0000 @@ -486,11 +486,11 @@ 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. */