very old machines and gcc may not have isinf

2009-06-15 14:58:57 -05:00 · 2009-06-15 14:58:57 -05:00 · b7b3abb2c7
commit b7b3abb2c7
parent 7f0a712c88
1 changed files with 6 additions and 0 deletions
--- a/library/yap2swi/yap2swi.c
+++ b/library/yap2swi/yap2swi.c
@ -2077,7 +2077,13 @@ X_API  int PL_is_inf(term_t st)
  if (IsVarTerm(t)) return FALSE;
  if (!IsFloatTerm(t)) return FALSE;
  fl = FloatOfTerm(t);
+#if HAVE_ISINF
  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)