(FIXNUM_OVERFLOW_P): Remove cast to avoid overflow.

diff --git a/src/ChangeLog b/src/ChangeLog
index 8d5d29a106bcfec5c82f7d9d2782a30919139fee..a6f318816e96be0cf3ef0e6f4e12e0ed7807b9ae 100644 (file)
--- 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 12f06ad6edabeaba93fc77d00a05d303a5735f1d..3838aff75317a689b74190e2a2538e9dc83ff1f3 100644 (file)
--- 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.  */