diff options
| author | Gerd Moellmann | 2001-10-06 23:44:55 +0000 |
|---|---|---|
| committer | Gerd Moellmann | 2001-10-06 23:44:55 +0000 |
| commit | 29d823d63dae336af7de8546835f88d83f18089e (patch) | |
| tree | 38d562e399c650e859ab8ca3ab537e4004cbe71e /src/floatfns.c | |
| parent | f8edfd760d1cfb8c5c3273ad33ebc5f82b01db49 (diff) | |
| download | emacs-29d823d63dae336af7de8546835f88d83f18089e.tar.gz emacs-29d823d63dae336af7de8546835f88d83f18089e.zip | |
(FLOAT_TO_INT2, FLOAT_TO_INT): Use FIXNUM_OVERFLOW_P.
Diffstat (limited to 'src/floatfns.c')
| -rw-r--r-- | src/floatfns.c | 6 |
1 files 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; | |||
| 183 | #define FLOAT_TO_INT(x, i, name, num) \ | 183 | #define FLOAT_TO_INT(x, i, name, num) \ |
| 184 | do \ | 184 | do \ |
| 185 | { \ | 185 | { \ |
| 186 | if ((x) >= (((EMACS_INT) 1) << (VALBITS-1)) || \ | 186 | if (FIXNUM_OVERFLOW_P (x)) \ |
| 187 | (x) <= - (((EMACS_INT) 1) << (VALBITS-1)) - 1) \ | ||
| 188 | range_error (name, num); \ | 187 | range_error (name, num); \ |
| 189 | XSETINT (i, (EMACS_INT)(x)); \ | 188 | XSETINT (i, (EMACS_INT)(x)); \ |
| 190 | } \ | 189 | } \ |
| @@ -192,8 +191,7 @@ static char *float_error_fn_name; | |||
| 192 | #define FLOAT_TO_INT2(x, i, name, num1, num2) \ | 191 | #define FLOAT_TO_INT2(x, i, name, num1, num2) \ |
| 193 | do \ | 192 | do \ |
| 194 | { \ | 193 | { \ |
| 195 | if ((x) >= (((EMACS_INT) 1) << (VALBITS-1)) || \ | 194 | if (FIXNUM_OVERFLOW_P (x)) \ |
| 196 | (x) <= - (((EMACS_INT) 1) << (VALBITS-1)) - 1) \ | ||
| 197 | range_error2 (name, num1, num2); \ | 195 | range_error2 (name, num1, num2); \ |
| 198 | XSETINT (i, (EMACS_INT)(x)); \ | 196 | XSETINT (i, (EMACS_INT)(x)); \ |
| 199 | } \ | 197 | } \ |