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

[Andreas Schwab]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Andreas Schwab <schwab> 09/10/24 16:32:08

Modified files:
        src            : ChangeLog lisp.h 

Log message:
        (FIXNUM_OVERFLOW_P): Fix last change to handle unsigned
        types again.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/src/ChangeLog?cvsroot=emacs&r1=1.7820&r2=1.7821
http://cvs.savannah.gnu.org/viewcvs/emacs/src/lisp.h?cvsroot=emacs&r1=1.669&r2=1.670

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/src/ChangeLog,v
retrieving revision 1.7820
retrieving revision 1.7821
diff -u -b -r1.7820 -r1.7821
--- ChangeLog   24 Oct 2009 14:01:03 -0000      1.7820
+++ ChangeLog   24 Oct 2009 16:32:06 -0000      1.7821
@@ -1,5 +1,8 @@
 2009-10-24  Andreas Schwab  <address@hidden>
 
+       * lisp.h (FIXNUM_OVERFLOW_P): Fix last change to handle unsigned
+       types again.
+
        * sysdep.c (procfs_ttyname): Fix sprintf format to match argument
        type.
        (system_process_attributes): Likewise.

Index: lisp.h
===================================================================
RCS file: /sources/emacs/emacs/src/lisp.h,v
retrieving revision 1.669
retrieving revision 1.670
diff -u -b -r1.669 -r1.670
--- lisp.h      23 Oct 2009 20:56:31 -0000      1.669
+++ lisp.h      24 Oct 2009 16:32:08 -0000      1.670
@@ -486,11 +486,13 @@
    I.e. (x & INTMASK) == XUINT (make_number (x)).  */
 #define INTMASK ((((EMACS_INT) 1) << VALBITS) - 1)
 
-/* Value is non-zero if I doesn't fit into a Lisp fixnum.  */
+/* Value is non-zero if I doesn't fit into a Lisp fixnum.  It is
+   written this way so that it also works if I is of unsigned
+   type.  */
 
 #define FIXNUM_OVERFLOW_P(i) \
   ((i) > MOST_POSITIVE_FIXNUM \
-   || (i) < MOST_NEGATIVE_FIXNUM)
+   || ((i) < 0 && (i) < MOST_NEGATIVE_FIXNUM))
 
 /* Extract a value or address from a Lisp_Object.  */