In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/c496ca58b935925a317fd99b29b48db763c1110c?hp=93c088703d013ba02ebd97a3de881ff2b0154b68>
- Log -----------------------------------------------------------------
commit c496ca58b935925a317fd99b29b48db763c1110c
Author: Jarkko Hietaniemi <j...@iki.fi>
Date: Wed Sep 17 09:45:02 2014 -0400
Use the Perl_isfinite multiplication fallback last.
Otherwise we shadow e.g. the Win32 _isfinite.
-----------------------------------------------------------------------
Summary of changes:
perl.h | 13 +++++--------
1 file changed, 5 insertions(+), 8 deletions(-)
diff --git a/perl.h b/perl.h
index 82e604d..8e81724 100644
--- a/perl.h
+++ b/perl.h
@@ -2032,11 +2032,6 @@ EXTERN_C long double modfl(long double, long double *);
# define Perl_isfinite(x) isfinite(x)
# elif defined(HAS_FINITE)
# define Perl_isfinite(x) finite(x)
-# else
-/* For the infinities the multiplication returns nan,
- * for the nan the multiplication also returns nan,
- * for everything else (that is, finite) zero should be returned. */
-# define Perl_isfinite(x) ((x) * 0 == 0)
# endif
# endif
#endif
@@ -2293,13 +2288,15 @@ int isnan(double d);
#ifndef Perl_isfinite
# if defined(HAS_ISFINITE) && !defined(isfinite)
-# define Perl_isfinite(x) isfinite((double)x)
+# define Perl_isfinite(x) isfinite((double)(x))
# elif defined(HAS_FINITE)
-# define Perl_isfinite(x) finite((double)x)
+# define Perl_isfinite(x) finite((double)(x))
# elif defined(Perl_fp_class_finite)
# define Perl_isfinite(x) Perl_fp_class_finite(x)
# else
-/* NaN*0 is NaN, [+-]Inf*0 is NaN, zero for anything else. */
+/* For the infinities the multiplication returns nan,
+ * for the nan the multiplication also returns nan,
+ * for everything else (that is, finite) zero should be returned. */
# define Perl_isfinite(x) (((x) * 0) == 0)
# endif
#endif
--
Perl5 Master Repository
