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

frexpf() takes a _float_ as input. When passed a double it can lead to FPE.

Browse source
This commit is contained in:
jgarcia 2006-11-11 13:44:21 +00:00
parent 644193ed56
commit 34f8e69dc8
1 changed files with 7 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

15
src/c/num_co.d
View file

@ -932,7 +932,6 @@ cl_decode_float(cl_object x)
int e, s;
cl_type tx = type_of(x);
float f;
double d;
AGAIN:
switch (tx) {
#ifdef ECL_SHORT_FLOAT
@ -943,21 +942,21 @@ cl_decode_float(cl_object x)
case t_singlefloat: {
f = sf(x);
FLOAT:
if (d >= 0.0)
if (f >= 0.0) {
s = 1;
else {
d = -d;
} else {
f = -f;
s = 0;
}
d = frexpf(d, &e);
x = make_singlefloat(d);
f = frexpf(f, &e);
x = make_singlefloat(f);
break;
}
case t_doublefloat: {
double d = df(x);
if (d >= 0.0)
if (d >= 0.0) {
s = 1;
else {
} else {
d = -d;
s = 0;
}