From 29d823d63dae336af7de8546835f88d83f18089e Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Sat, 6 Oct 2001 23:44:55 +0000 Subject: [PATCH] (FLOAT_TO_INT2, FLOAT_TO_INT): Use FIXNUM_OVERFLOW_P. --- src/floatfns.c | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) 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)); \ } \ -- 2.39.2