sfos/ecl
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Use finite() instead of isinf(), which does not exist in Solaris.

Browse source
This commit is contained in:
jjgarcia 2001-07-23 10:55:47 +00:00
parent 126d813dcb
commit 9f01940912
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/c/number.d
View file

@ -103,10 +103,9 @@ make_shortfloat(float f)
{
cl_object x;
if (f == (float)0.0)
return(shortfloat_zero);
if (isnanf(f) || isinf(f))
if (isnanf(f) || !finite(f))
FEerror("Not a number.",0);
x = alloc_object(t_shortfloat);
sf(x) = f;
@ -120,7 +119,7 @@ make_longfloat(double f)
if (f == (double)0.0)
return(longfloat_zero);
if (isnan(f) || isinf(f))
if (isnan(f) || !finite(f))
FEerror("Not a number.",0);
x = alloc_object(t_longfloat);
lf(x) = f;