From 3722f0dc40a30b6ceedaf8704b690b384a8adb00 Mon Sep 17 00:00:00 2001 From: Paul Green Date: Fri, 8 Feb 2008 07:36:03 -0500 Subject: RE: Perl @ 33218 (Stratus VOS patches) From: "Green, Paul" Message-ID: Includes a fix to the patch to ext/Time/HiRes/Makefile.PL p4raw-id: //depot/perl@33259 --- pp_pack.c | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'pp_pack.c') diff --git a/pp_pack.c b/pp_pack.c index 98d4869f9c..dfcd3e9c0e 100644 --- a/pp_pack.c +++ b/pp_pack.c @@ -3065,11 +3065,14 @@ S_pack_rec(pTHX_ SV *cat, tempsym_t* symptr, SV **beglist, SV **endlist ) any OS that needs it, or removed if and when VOS implements posix-976 (suggestion to support mapping to infinity). Paul.Green@stratus.com 02-04-02. */ +{ +extern const float _float_constants[]; if (anv > FLT_MAX) afloat = _float_constants[0]; /* single prec. inf. */ else if (anv < -FLT_MAX) afloat = _float_constants[0]; /* single prec. inf. */ else afloat = (float) anv; +} #else /* __VOS__ */ # if defined(VMS) && !defined(__IEEE_FP) /* IEEE fp overflow shenanigans are unavailable on VAX and optional @@ -3101,11 +3104,14 @@ S_pack_rec(pTHX_ SV *cat, tempsym_t* symptr, SV **beglist, SV **endlist ) for any OS that needs it, or removed if and when VOS implements posix-976 (suggestion to support mapping to infinity). Paul.Green@stratus.com 02-04-02. */ +{ +extern const double _double_constants[]; if (anv > DBL_MAX) adouble = _double_constants[0]; /* double prec. inf. */ else if (anv < -DBL_MAX) adouble = _double_constants[0]; /* double prec. inf. */ else adouble = (double) anv; +} #else /* __VOS__ */ # if defined(VMS) && !defined(__IEEE_FP) /* IEEE fp overflow shenanigans are unavailable on VAX and optional -- cgit v1.2.1