(FIXNUM_OVERFLOW_P): Remove cast to avoid overflow.

7b792fc9 · Andreas Schwab · 6798b799 · 7b792fc9 · 7b792fc9
Commit 7b792fc9 authored Oct 23, 2009 by Andreas Schwab
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 3 deletions

src/ChangeLog src/ChangeLog +2 -0

src/lisp.h src/lisp.h +3 -3

No files found.
--- a/src/ChangeLog
+++ b/src/ChangeLog
 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
+++ 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.  */