Mercurial > emacs
diff src/floatfns.c @ 39638:911382113c16
(FLOAT_TO_INT2, FLOAT_TO_INT): Use FIXNUM_OVERFLOW_P.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Sat, 06 Oct 2001 23:44:55 +0000 |
| parents | e19d38e14720 |
| children | a9c8422074c9 |
line wrap: on
line diff
--- a/src/floatfns.c Sat Oct 06 23:41:39 2001 +0000 +++ b/src/floatfns.c Sat Oct 06 23:44:55 2001 +0000 @@ -183,8 +183,7 @@ #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 @@ #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)); \ } \