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 | 773c6de290c48e0eae91cf78c19a9982b456c1d9 (patch) | |
tree | 536249905fca2a43d698811e5020ca74a94cc2a5 /src/floatfns.c | |
parent | 54e4995d25e29ac51c6d3db636f8fdce2409a2c9 (diff) | |
download | emacs-773c6de290c48e0eae91cf78c19a9982b456c1d9.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) |