OSDN Git Service

* libgfortran.h: When isfinite is not provided by the system,
authorfxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4>
Wed, 3 Aug 2005 20:00:00 +0000 (20:00 +0000)
committerfxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4>
Wed, 3 Aug 2005 20:00:00 +0000 (20:00 +0000)
define it as a macro, so that it can accept any floating point
type.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@102707 138bc75d-0d04-0410-961f-82ee72b054a4

libgfortran/ChangeLog
libgfortran/libgfortran.h

index cdd3f11..e725012 100644 (file)
@@ -1,3 +1,9 @@
+2005-08-03  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
+
+       * libgfortran.h: When isfinite is not provided by the system,
+       define it as a macro, so that it can accept any floating point
+       type.
+
 2005-08-01  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
 
        PR libfortran/23178
index ccba2a7..6db6ef9 100644 (file)
@@ -179,17 +179,11 @@ typedef off_t gfc_offset;
    alternatives, or bail out.  */
 #if (!defined(isfinite) || defined(__CYGWIN__))
 #undef isfinite
-static inline int
-isfinite (double x)
-{
 #if defined(fpclassify)
-  return (fpclassify(x) != FP_NAN && fpclassify(x) != FP_INFINITE);
-#elif defined(HAVE_FINITE)
-  return finite (x);
+#define isfinite(x) (fpclassify(x) != FP_NAN && fpclassify(x) != FP_INFINITE)
 #else
-#error "libgfortran needs isfinite, fpclassify, or finite"
+#define isfinite(x) ((x) - (x) == 0)
 #endif
-}
 #endif /* !defined(isfinite)  */
 
 /* TODO: find the C99 version of these an move into above ifdef.  */