(FLOAT_TO_INT, FLOAT_TO_INT2): Use EMACS_INT.

7936dcdb · Richard M. Stallman · 679e18b1 · 7936dcdb
Commit 7936dcdb authored Sep 17, 1994 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 6 additions and 4 deletions

src/floatfns.c src/floatfns.c +6 -4

No files found.
--- 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)