This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Use HAS_ISFINITE for Perl_isfinitel.
authorJarkko Hietaniemi <jhi@iki.fi>
Sat, 13 Sep 2014 11:57:12 +0000 (07:57 -0400)
committerJarkko Hietaniemi <jhi@iki.fi>
Sat, 13 Sep 2014 12:25:19 +0000 (08:25 -0400)
perl.h

diff --git a/perl.h b/perl.h
index 963451d..39ce4ca 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -2314,7 +2314,7 @@ int isnan(double d);
 #if defined(HAS_LONG_DOUBLE) && !defined(Perl_isfinitel)
 /* If isfinite() is a macro and looks like we have C99,
  * we assume it's the type-aware C99 isfinite(). */
-#    if defined(isfinite) && defined(HAS_C99)
+#    if defined(HAS_ISFINITE) && defined(isfinite) && defined(HAS_C99)
 #        define Perl_isfinitel(x) isfinite(x)
 #    elif defined(HAS_ISFINITEL)
 #        define Perl_isfinitel(x) isfinitel(x)