From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 17 Sep 1994 00:31:05 +0000 (+0000)
Subject: (FLOAT_TO_INT, FLOAT_TO_INT2): Use EMACS_INT.
X-Git-Tag: emacs-19.34~7029
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7936dcdb52c80a17bcea55d49a5fc160e5a3bf07;p=emacs.git

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

diff --git a/src/floatfns.c b/src/floatfns.c
index 66eb303b1d7..6d74477c14a 100644
--- a/src/floatfns.c
+++ b/src/floatfns.c
@@ -180,17 +180,19 @@ static char *float_error_fn_name;
 #define FLOAT_TO_INT(x, i, name, num)					\
   do									\
     {									\
-      if ((x) >= (1 << (VALBITS-1)) || (x) <= - (1 << (VALBITS-1)) - 1)	\
+      if ((x) >= (((EMACS_INT) 1) << (VALBITS-1)) ||			\
+	  (x) <= - (((EMACS_INT) 1) << (VALBITS-1)) - 1)		\
 	range_error (name, num);					\
-      XSET (i, Lisp_Int,  (int)(x));					\
+      XSET (i, Lisp_Int,  (EMACS_INT)(x));				\
     }									\
   while (0)
 #define FLOAT_TO_INT2(x, i, name, num1, num2)				\
   do									\
     {									\
-      if ((x) >= (1 << (VALBITS-1)) || (x) <= - (1 << (VALBITS-1)) - 1)	\
+      if ((x) >= (((EMACS_INT) 1) << (VALBITS-1)) ||			\
+	  (x) <= - (((EMACS_INT) 1) << (VALBITS-1)) - 1)		\
 	range_error2 (name, num1, num2);				\
-      XSET (i, Lisp_Int,  (int)(x));					\
+      XSET (i, Lisp_Int,  (EMACS_INT)(x));				\
     }									\
   while (0)