In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/45044cc2944b143b96cb9abef4fba15908fbf1d3?hp=952684692c4740b541017b64502f76660a55c57b>
- Log ----------------------------------------------------------------- commit 45044cc2944b143b96cb9abef4fba15908fbf1d3 Author: Jarkko Hietaniemi <[email protected]> Date: Thu Feb 26 20:37:16 2015 -0500 infnan: one should not define NV_NAN from NV_SNAN More generally, the NaN should be the quiet one. M perl.h commit bf872ac3bb970dcf9dc4e388a63304051932e583 Author: Jarkko Hietaniemi <[email protected]> Date: Thu Feb 26 20:30:02 2015 -0500 infnan: drop NV_QNAN and NV_SNAN They are unused, better keep the API small. M perl.h ----------------------------------------------------------------------- Summary of changes: perl.h | 17 ----------------- 1 file changed, 17 deletions(-) diff --git a/perl.h b/perl.h index b3b77ba..f540e3a 100644 --- a/perl.h +++ b/perl.h @@ -4329,11 +4329,6 @@ static const union { unsigned int __i; float __f; } __PL_inf_u = # endif # if !defined(NV_NAN) && defined(LDBL_QNAN) # define NV_NAN LDBL_QNAN -# 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 #if !defined(NV_NAN) && defined(DBL_NAN) @@ -4341,27 +4336,15 @@ static const union { unsigned int __i; float __f; } __PL_inf_u = #endif #if !defined(NV_NAN) && defined(DBL_QNAN) # define NV_NAN (NV)DBL_QNAN -# 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) # define NV_NAN (NV)NAN #endif #if !defined(NV_NAN) && defined(QNAN) # define NV_NAN (NV)QNAN -# 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) # define NV_NAN (NV)quiet_nan() -# define NV_QNAN (NV)quiet_nan() -# define NV_SNAN (NV)signaling_nan() #endif #if !defined(NV_NAN) # if INTSIZE == 4 -- Perl5 Master Repository
