mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-23 22:42:01 -07:00
Code Issues 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)