From: Gerd Moellmann <gerd@gnu.org>
Date: Sat, 6 Oct 2001 23:44:55 +0000 (+0000)
Subject: (FLOAT_TO_INT2, FLOAT_TO_INT): Use FIXNUM_OVERFLOW_P.
X-Git-Tag: ttn-vms-21-2-B4~19683
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=29d823d63dae336af7de8546835f88d83f18089e;p=emacs.git

(FLOAT_TO_INT2, FLOAT_TO_INT): Use FIXNUM_OVERFLOW_P.
---

diff --git a/src/floatfns.c b/src/floatfns.c
index db1c3a7231e..926235f5fe2 100644
--- a/src/floatfns.c
+++ b/src/floatfns.c
@@ -183,8 +183,7 @@ static char *float_error_fn_name;
 #define FLOAT_TO_INT(x, i, name, num)					\
   do									\
     {									\
-      if ((x) >= (((EMACS_INT) 1) << (VALBITS-1)) ||			\
-	  (x) <= - (((EMACS_INT) 1) << (VALBITS-1)) - 1)		\
+      if (FIXNUM_OVERFLOW_P (x))					\
 	range_error (name, num);					\
       XSETINT (i,  (EMACS_INT)(x));					\
     }									\
@@ -192,8 +191,7 @@ static char *float_error_fn_name;
 #define FLOAT_TO_INT2(x, i, name, num1, num2)				\
   do									\
     {									\
-      if ((x) >= (((EMACS_INT) 1) << (VALBITS-1)) ||			\
-	  (x) <= - (((EMACS_INT) 1) << (VALBITS-1)) - 1)		\
+      if (FIXNUM_OVERFLOW_P (x))					\
 	range_error2 (name, num1, num2);				\
       XSETINT (i,  (EMACS_INT)(x));					\
     }									\