Mercurial > emacs

diff src/lisp.h @ 105732:39a36d9d9d93

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(FIXNUM_OVERFLOW_P): Remove cast to avoid overflow.
author Andreas Schwab <schwab@linux-m68k.org>
date Fri, 23 Oct 2009 20:56:30 +0000
parents b0c56106af54
children 35e7b757c606
line wrap: on
line diff
--- 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.  */