This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
infnan: do not define NV_NAN from a signaling nan
authorJarkko Hietaniemi <jhi@iki.fi>
Sat, 7 Feb 2015 18:27:42 +0000 (13:27 -0500)
committerJarkko Hietaniemi <jhi@iki.fi>
Mon, 9 Feb 2015 02:54:49 +0000 (21:54 -0500)
This is not a strong guarantee that the NV_NAN is a quiet NaN.

perl.h

diff --git a/perl.h b/perl.h
index b6dbf61..cfbadef 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -4319,7 +4319,6 @@ static const union { unsigned int __i; float __f; } __PL_inf_u =
 #       define NV_QNAN LDBL_QNAN
 #   endif
 #   if !defined(NV_NAN) && defined(LDBL_SNAN)
-#       define NV_NAN LDBL_SNAN
 #       define NV_SNAN LDBL_SNAN
 #   endif
 #endif
@@ -4331,7 +4330,6 @@ static const union { unsigned int __i; float __f; } __PL_inf_u =
 #  define NV_QNAN DBL_QNAN
 #endif
 #if !defined(NV_NAN) && defined(DBL_SNAN)
-#  define NV_NAN (NV)DBL_SNAN
 #  define NV_SNAN DBL_SNAN
 #endif
 #if !defined(NV_NAN) && defined(NAN)
@@ -4342,7 +4340,6 @@ static const union { unsigned int __i; float __f; } __PL_inf_u =
 #  define NV_QNAN QNAN
 #endif
 #if !defined(NV_NAN) && defined(SNAN)
-#  define NV_NAN (NV)SNAN
 #  define NV_SNAN SNAN
 #endif
 #if !defined(NV_NAN) && defined(I_SUNMATH)