From: Andreas Schwab Date: Fri, 23 Oct 2009 20:56:30 +0000 (+0000) Subject: (FIXNUM_OVERFLOW_P): Remove cast to avoid overflow. X-Git-Tag: emacs-pretest-23.1.90~684 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7b792fc98da135524d423fd1ab4d269466b1cb6f;p=emacs.git (FIXNUM_OVERFLOW_P): Remove cast to avoid overflow. --- 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 + * lisp.h (FIXNUM_OVERFLOW_P): Remove cast to avoid overflow. + * puresize.h (PURESIZE_RATIO): Decrease to 11/7. 2009-10-23 Chong Yidong 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. */