mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-08 10:13:36 -08:00
Code Issues Projects Releases Packages Wiki Activity

No need to check for overflows while reading numbers -- make_shortfloat

Browse source 
and make_longfloat take care of that.
This commit is contained in:
jjgarcia 2002-05-22 16:50:41 +00:00
parent 723047975d
commit 1286ec7528
1 changed files with 3 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

15
src/c/read.d
View file

@ -604,6 +604,9 @@ EXPONENT:
}
MAKE_FLOAT:
/* make_{short|long}float signals an error when an overflow
occurred while reading the number. Thus, no safety check
is required here. */
switch (exponent_marker) {
case 'e': case 'E':
@ -611,22 +614,10 @@ MAKE_FLOAT:
goto MAKE_FLOAT;
case 's': case 'S':
#ifdef IEEEFLOAT
{
float biggest_float;
*((int *)&biggest_float) = 0x7f7fffff;
if (fraction > biggest_float || fraction < -biggest_float)
FEerror("Floating-point overflow.", 0);
}
#endif
x = make_shortfloat((float)fraction);
break;
case 'f': case 'F': case 'd': case 'D': case 'l': case 'L':
#ifdef IEEEFLOAT
if ((*((int *)&fraction + HIND) & 0x7ff00000) == 0x7ff00000)
FEerror("Floating-point overflow.", 0);
#endif
x = make_longfloat((double)fraction);
break;