This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Post-VAX VMS has fp_classify().
authorJarkko Hietaniemi <jhi@iki.fi>
Tue, 26 Aug 2014 01:44:55 +0000 (21:44 -0400)
committerJarkko Hietaniemi <jhi@iki.fi>
Tue, 26 Aug 2014 23:43:20 +0000 (19:43 -0400)
configure.com
sv.c

index fc2ae70..4beb059 100644 (file)
@@ -3374,9 +3374,11 @@ $ IF useieee .OR. useieee .EQS. "define"
 $ THEN
 $   d_isnan = "define"
 $   d_isnanl = "define"
+$   d_fp_classify = "define"
 $ ELSE
 $   d_isnan = "undef"
 $   d_isnanl = "undef"
+$   d_fp_classify = "undef"
 $ ENDIF
 $!
 $! Now some that we build up
@@ -5981,6 +5983,7 @@ $ WC "d_flock='undef'"
 $ WC "d_flockproto='undef'"
 $ WC "d_fork='undef'"
 $ WC "d_fp_class='undef'"
+$ WC "d_fp_classify='" + d_fp_classify + "'"
 $ WC "d_fp_classify='undef'"
 $ WC "d_fp_classl='undef'"
 $ WC "d_fpathconf='" + d_fpathconf + "'"
diff --git a/sv.c b/sv.c
index 51bd860..fa45bf5 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -11773,7 +11773,7 @@ Perl_sv_vcatpvfn_flags(pTHX_ SV *const sv, const char *const pat, const STRLEN p
                      * for the future.) */
 
                     /* 2 hexdigits for each byte. */ 
-                    need += ((1028 - NVSIZE * 8) / 8) * 2;
+                    need += (1028/8 - DOUBLESIZE + 1) * 2;
 #endif
 #ifdef USE_LOCALE_NUMERIC
                         STORE_LC_NUMERIC_SET_TO_NEEDED();