summaryrefslogtreecommitdiff
path: root/perl.h
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2014-09-06 14:12:05 -0400
committerJarkko Hietaniemi <jhi@iki.fi>2014-09-06 14:23:38 -0400
commitb4a3b1adcef1001d81018aed8b7d1b26d223601a (patch)
tree7004bfb6b366161eba5bc3e42ca03dce19f2bcf8 /perl.h
parent29b9baacc932a0194ba6d2ff297ac42925e98707 (diff)
downloadperl-b4a3b1adcef1001d81018aed8b7d1b26d223601a.tar.gz
Long double might have INFINITYL or NANL.
Diffstat (limited to 'perl.h')
-rw-r--r--perl.h18
1 files changed, 13 insertions, 5 deletions
diff --git a/perl.h b/perl.h
index 865daa87b2..f3ae3eb6aa 100644
--- a/perl.h
+++ b/perl.h
@@ -4128,8 +4128,13 @@ END_EXTERN_C
* and the math functions might be just generating DBL_MAX, or even
* zero. */
-#if !defined(NV_INF) && defined(USE_LONG_DOUBLE) && defined(LDBL_INFINITY)
-# define NV_INF LDBL_INFINITY
+#if !defined(NV_INF) && defined(USE_LONG_DOUBLE)
+# if !defined(NV_INF) && defined(LDBL_INFINITY)
+# define NV_INF LDBL_INFINITY
+# endif
+# if !defined(NV_INF) && defined(INFINITYL)
+# define NV_INF INFINITYL
+# endif
#endif
#if !defined(NV_INF) && defined(DBL_INFINITY)
# define NV_INF (NV)DBL_INFINITY
@@ -4171,6 +4176,9 @@ static const union { unsigned int __i; float __f; } __PL_inf_u =
# if !defined(NV_NAN) && defined(LDBL_NAN)
# define NV_NAN LDBL_NAN
# endif
+# if !defined(NV_NAN) && defined(NANL)
+# define NV_NAN NANL
+# endif
# if !defined(NV_NAN) && defined(LDBL_QNAN)
# define NV_NAN LDBL_QNAN
# endif
@@ -4187,12 +4195,12 @@ static const union { unsigned int __i; float __f; } __PL_inf_u =
#if !defined(NV_NAN) && defined(DBL_SNAN)
# define NV_NAN (NV)DBL_SNAN
#endif
-#if !defined(NV_NAN) && defined(QNAN)
-# define NV_NAN (NV)QNAN
-#endif
#if !defined(NV_NAN) && defined(NAN)
# define NV_NAN (NV)NAN
#endif
+#if !defined(NV_NAN) && defined(QNAN)
+# define NV_NAN (NV)QNAN
+#endif
#if !defined(NV_NAN) && defined(SNAN)
# define NV_NAN (NV)SNAN
#endif