git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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
This commit is contained in:
Paul Thomas 2005-02-01 10:06:22 +01:00 committed by Steven Bosscher
parent 9c0a30c366
commit e88334a68f
2 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
libgfortran/ChangeLog
View File

@ -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> 2005-01-30 Bud Davis <bdavis@gfortran.org>
PR fortran/19647 PR fortran/19647

9
libgfortran/libgfortran.h
View File

@ -171,9 +171,14 @@ typedef off_t gfc_offset;
/* The isfinite macro is only available with C99, but some non-C99 /* The isfinite macro is only available with C99, but some non-C99
systems still provide fpclassify, and there is a `finite' function 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. */ alternatives, or bail out. */
#if !defined(isfinite) #if (!defined(isfinite) || defined(__CYGWIN__))
#undef isfinite
static inline int static inline int
isfinite (double x) isfinite (double x)
{ {