From 7936dcdb52c80a17bcea55d49a5fc160e5a3bf07 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 17 Sep 1994 00:31:05 +0000 Subject: [PATCH] (FLOAT_TO_INT, FLOAT_TO_INT2): Use EMACS_INT. --- src/floatfns.c | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) 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) -- 2.39.5