diff options
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; | |||
| 180 | #define FLOAT_TO_INT(x, i, name, num) \ | 180 | #define FLOAT_TO_INT(x, i, name, num) \ |
| 181 | do \ | 181 | do \ |
| 182 | { \ | 182 | { \ |
| 183 | if ((x) >= (1 << (VALBITS-1)) || (x) <= - (1 << (VALBITS-1)) - 1) \ | 183 | if ((x) >= (((EMACS_INT) 1) << (VALBITS-1)) || \ |
| 184 | (x) <= - (((EMACS_INT) 1) << (VALBITS-1)) - 1) \ | ||
| 184 | range_error (name, num); \ | 185 | range_error (name, num); \ |
| 185 | XSET (i, Lisp_Int, (int)(x)); \ | 186 | XSET (i, Lisp_Int, (EMACS_INT)(x)); \ |
| 186 | } \ | 187 | } \ |
| 187 | while (0) | 188 | while (0) |
| 188 | #define FLOAT_TO_INT2(x, i, name, num1, num2) \ | 189 | #define FLOAT_TO_INT2(x, i, name, num1, num2) \ |
| 189 | do \ | 190 | do \ |
| 190 | { \ | 191 | { \ |
| 191 | if ((x) >= (1 << (VALBITS-1)) || (x) <= - (1 << (VALBITS-1)) - 1) \ | 192 | if ((x) >= (((EMACS_INT) 1) << (VALBITS-1)) || \ |
| 193 | (x) <= - (((EMACS_INT) 1) << (VALBITS-1)) - 1) \ | ||
| 192 | range_error2 (name, num1, num2); \ | 194 | range_error2 (name, num1, num2); \ |
| 193 | XSET (i, Lisp_Int, (int)(x)); \ | 195 | XSET (i, Lisp_Int, (EMACS_INT)(x)); \ |
| 194 | } \ | 196 | } \ |
| 195 | while (0) | 197 | while (0) |
| 196 | 198 | ||