diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

very old machines and gcc may not have isinf

Browse Source
This commit is contained in:
Costa Vitor 2009-06-15 14:58:57 -05:00
parent 7f0a712c88
commit b7b3abb2c7
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
library/yap2swi/yap2swi.c
View File

@ -2077,7 +2077,13 @@ X_API int PL_is_inf(term_t st)
if (IsVarTerm(t)) return FALSE; if (IsVarTerm(t)) return FALSE;
if (!IsFloatTerm(t)) return FALSE; if (!IsFloatTerm(t)) return FALSE;
fl = FloatOfTerm(t); fl = FloatOfTerm(t);
#if HAVE_ISINF
return isinf(fl); return isinf(fl);
#elif HAVE_FPCLASS
return (fpclass(fl) == FP_NINF || fpclass(fl) == FP_PINF);
#else
return FALSE;
#endif
} }
X_API int PL_thread_self(void) X_API int PL_thread_self(void)