# HG changeset patch
# User Andreas Schwab <schwab@linux-m68k.org>
# Date 1256331390 0
# Node ID 39a36d9d9d9375bef032457be9dc2e34dea88070
# Parent  f888f3b57b891945db3557e235737fadfc9bfcef
(FIXNUM_OVERFLOW_P): Remove cast to avoid overflow.

diff -r f888f3b57b89 -r 39a36d9d9d93 src/ChangeLog
--- 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>
diff -r f888f3b57b89 -r 39a36d9d9d93 src/lisp.h
--- 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.  */