In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/c0cd65b2410a7d7f64d2d3336de4f12861b430b2?hp=3c239bea80af65ef9ef306b586824cecbad9e09c>
- Log -----------------------------------------------------------------
commit c0cd65b2410a7d7f64d2d3336de4f12861b430b2
Author: Craig A. Berry <craigbe...@mac.com>
Date: Mon Sep 1 11:11:56 2014 -0500
Some missing c99_xxx functions for POSIX.xs on VMS.
M ext/POSIX/POSIX.xs
commit 558f3e669bb5f38d28aa746e2a3d3caac53bd1c3
Author: Craig A. Berry <craigbe...@mac.com>
Date: Mon Sep 1 11:07:47 2014 -0500
fix fp_classify in perl.h for VMS.
We have to include <fp.h> as well for the macros we're testing
for to be defined.
M perl.h
-----------------------------------------------------------------------
Summary of changes:
ext/POSIX/POSIX.xs | 12 ++++++++++++
perl.h | 4 ++++
2 files changed, 16 insertions(+)
diff --git a/ext/POSIX/POSIX.xs b/ext/POSIX/POSIX.xs
index 12abb3b..c250831 100644
--- a/ext/POSIX/POSIX.xs
+++ b/ext/POSIX/POSIX.xs
@@ -307,6 +307,18 @@
#endif
+/* XXX Regarding C99 math.h, VMS seems to be missing these:
+
+ nan nearbyint round scalbn
+ */
+
+#ifdef __VMS
+# undef c99_nan
+# undef c99_nearbyint
+# undef c99_round
+# undef c99_scalbn
+#endif
+
/* XXX Regarding C99 math.h, Win32 seems to be missing these:
exp2 fdim fma fmax fmin fpclassify ilogb lgamma log1p log2 lrint
diff --git a/perl.h b/perl.h
index 5f71489..8ea9a2a 100644
--- a/perl.h
+++ b/perl.h
@@ -2041,6 +2041,10 @@ EXTERN_C long double modfl(long double, long double *);
* are identical to the C99 fpclassify(). */
#if !defined(Perl_fp_class) && defined(HAS_FP_CLASSIFY)
# include <math.h>
+# ifdef __VMS
+ /* FP_INFINITE and others are here rather than in math.h as C99
stipulates */
+# include <fp.h>
+# endif
# if defined(FP_INFINITE) && defined(FP_NAN)
# define Perl_fp_class(x) fp_classify(x)
# define Perl_fp_class_inf(x) (Perl_fp_class(x)==FP_INFINITE)
--
Perl5 Master Repository
