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

Use ISO-C99 functions to check whether a real number is finite.

Browse source
This commit is contained in:
jjgarcia 2002-05-22 16:51:15 +00:00
parent 1286ec7528
commit b7cd0209b8
1 changed files with 1 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/c/print.d
View file

@ -393,8 +393,7 @@ edit_double(int n, double d, int *sp, char *s, int *ep)
char *p, buff[FPRC + 9];
int i;
#ifdef IEEEFLOAT
if ((*((int *)&d +HIND) & 0x7ff00000) == 0x7ff00000)
if (isnan(d) || !finite(d))
FEerror("Can't print a non-number.", 0);
else
sprintf(buff, "%*.*e",FPRC+8,FPRC, d);
@ -407,15 +406,6 @@ edit_double(int n, double d, int *sp, char *s, int *ep)
*sp = 1;
if (buff[0] == '-')
*sp *= -1;
#else
sprintf(buff, "%*.*e",FPRC+7,FPRC, d);
/* "-D.MMMMMMMMMMMMMMMe+EE" */
/* 0123456789012345678901 */
*sp = 1;
if (buff[0] == '-')
*sp *= -1;
*ep = (buff[FPRC+5]-'0')*10 + (buff[FPRC+6]-'0');
#endif /* IEEEFLOAT */
if (buff[FPRC+4] == '-')
*ep *= -1;