[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/src ChangeLog lisp.h
From: |
Andreas Schwab |
Subject: |
[Emacs-diffs] emacs/src ChangeLog lisp.h |
Date: |
Fri, 23 Oct 2009 20:56:31 +0000 |
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. */
- [Emacs-diffs] emacs/src ChangeLog lisp.h,
Andreas Schwab <=