[Emacs-diffs] emacs/src ChangeLog lisp.h

[Andreas Schwab]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Andreas Schwab <schwab> 09/10/23 20:56:31

Modified files:
        src            : ChangeLog lisp.h 

Log message:
        (FIXNUM_OVERFLOW_P): Remove cast to avoid overflow.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/src/ChangeLog?cvsroot=emacs&r1=1.7817&r2=1.7818
http://cvs.savannah.gnu.org/viewcvs/emacs/src/lisp.h?cvsroot=emacs&r1=1.668&r2=1.669

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/src/ChangeLog,v
retrieving revision 1.7817
retrieving revision 1.7818
diff -u -b -r1.7817 -r1.7818
--- ChangeLog   23 Oct 2009 17:56:06 -0000      1.7817
+++ ChangeLog   23 Oct 2009 20:56:30 -0000      1.7818
@@ -1,5 +1,7 @@
 2009-10-23  Andreas Schwab  <address@hidden>
 
+       * lisp.h (FIXNUM_OVERFLOW_P): Remove cast to avoid overflow.
+
        * puresize.h (PURESIZE_RATIO): Decrease to 11/7.
 
 2009-10-23  Chong Yidong  <address@hidden>

Index: lisp.h
===================================================================
RCS file: /sources/emacs/emacs/src/lisp.h,v
retrieving revision 1.668
retrieving revision 1.669
diff -u -b -r1.668 -r1.669
--- lisp.h      23 Oct 2009 17:33:55 -0000      1.668
+++ lisp.h      23 Oct 2009 20:56:31 -0000      1.669
@@ -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.  */