martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(FLOAT_TO_INT, FLOAT_TO_INT2): Use EMACS_INT.

Browse Source
This commit is contained in:
Richard M. Stallman
1994-09-17 00:31:05 +00:00
parent 679e18b112
commit 7936dcdb52
1 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/floatfns.c
View File

@@ -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)