(FIXNUM_OVERFLOW_P): Remove cast to avoid overflow.

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.  */