diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-09-17 00:31:05 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-09-17 00:31:05 +0000 |
| commit | 7936dcdb52c80a17bcea55d49a5fc160e5a3bf07 (patch) | |
| tree | 54b0ba87e540d8dd2d8af7de349f0841c6b1bb4e /src/floatfns.c | |
| parent | 679e18b112eb8833afd2c58b1938be7a8506749e (diff) | |
| download | emacs-7936dcdb52c80a17bcea55d49a5fc160e5a3bf07.tar.gz | |
(FLOAT_TO_INT, FLOAT_TO_INT2): Use EMACS_INT.
Diffstat (limited to 'src/floatfns.c')
| -rw-r--r-- | src/floatfns.c | 10 |
1 files 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) |