Commit 2e6578fb authored by Paul Eggert's avatar Paul Eggert
Browse files

* lisp.h (FIXNUM_OVERFLOW_P): Work even if arg is a NaN.

parent 0ae6bdee
2011-05-22 Paul Eggert <eggert@cs.ucla.edu>
* lisp.h (FIXNUM_OVERFLOW_P): Work even if arg is a NaN.
2011-05-21 Paul Eggert <eggert@cs.ucla.edu>
* data.c: Avoid integer truncation in expressions involving floats.
......
......@@ -544,11 +544,10 @@ extern Lisp_Object make_number (EMACS_INT);
/* 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. */
type or if I is a NaN. */
#define FIXNUM_OVERFLOW_P(i) \
((i) > MOST_POSITIVE_FIXNUM \
|| ((i) < 0 && (i) < MOST_NEGATIVE_FIXNUM))
(! ((0 <= (i) || MOST_NEGATIVE_FIXNUM <= (i)) && (i) <= MOST_POSITIVE_FIXNUM))
/* Extract a value or address from a Lisp_Object. */
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment