diff options
| author | Paul Thomas <paulthomas2@wanadoo.fr> | 2005-02-01 10:06:22 +0100 |
|---|---|---|
| committer | Steven Bosscher <steven@gcc.gnu.org> | 2005-02-01 09:06:22 +0000 |
| commit | e88334a68f98bc5ca30180787f9c67512b568ab7 (patch) | |
| tree | cd545e7beb13070153cf5378bee4dd676d4b652b /libgfortran | |
| parent | 9c0a30c366cd160bc8bd3589468dae18bd1b30ec (diff) | |
| download | gcc-e88334a68f98bc5ca30180787f9c67512b568ab7.zip gcc-e88334a68f98bc5ca30180787f9c67512b568ab7.tar.gz gcc-e88334a68f98bc5ca30180787f9c67512b568ab7.tar.bz2 | |
re PR libfortran/19363 (List directed write of Infinity and NaN has regressed)
2005-02-01 Paul Thomas <paulthomas2@wanadoo.fr>
PR libgfortran/19363
PR libgfortran/19691
* libgfortran.h (isfinite): Work around broken isfinite(x) in Cygwin.
From-SVN: r94530
Diffstat (limited to 'libgfortran')
| -rw-r--r-- | libgfortran/ChangeLog | 6 | ||||
| -rw-r--r-- | libgfortran/libgfortran.h | 9 |
2 files changed, 13 insertions, 2 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index d0aabea..e932ed1 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,9 @@ +2005-02-01 Paul Thomas <paulthomas2@wanadoo.fr> + + PR libgfortran/19363 + PR libgfortran/19691 + * libgfortran.h (isfinite): Work around broken isfinite(x) in Cygwin. + 2005-01-30 Bud Davis <bdavis@gfortran.org> PR fortran/19647 diff --git a/libgfortran/libgfortran.h b/libgfortran/libgfortran.h index dfa2e40..7dd6993 100644 --- a/libgfortran/libgfortran.h +++ b/libgfortran/libgfortran.h @@ -171,9 +171,14 @@ typedef off_t gfc_offset; /* The isfinite macro is only available with C99, but some non-C99 systems still provide fpclassify, and there is a `finite' function - in BSD. When isfinite is not available, try to use one of the + in BSD. + + Also, isfinite is broken on Cygwin. + + When isfinite is not available, try to use one of the alternatives, or bail out. */ -#if !defined(isfinite) +#if (!defined(isfinite) || defined(__CYGWIN__)) +#undef isfinite static inline int isfinite (double x) { |