diff options
| author | Paul Green <Paul.Green@stratus.com> | 2008-02-08 07:36:03 -0500 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2008-02-08 19:11:19 +0000 |
| commit | 3722f0dc40a30b6ceedaf8704b690b384a8adb00 (patch) | |
| tree | 58727ce9196f343d0c92a4f894f5fee186d168c7 /pp_pack.c | |
| parent | 7b0f711abd55488cc790ac95f935f46d630a87bb (diff) | |
| download | perl-3722f0dc40a30b6ceedaf8704b690b384a8adb00.tar.gz | |
RE: Perl @ 33218 (Stratus VOS patches)
From: "Green, Paul" <Paul.Green@stratus.com>
Message-ID: <F5F42E77A43DD944B6D664B00A5401CB037149FF@EXNA.corp.stratus.com>
Includes a fix to the patch to ext/Time/HiRes/Makefile.PL
p4raw-id: //depot/perl@33259
Diffstat (limited to 'pp_pack.c')
| -rw-r--r-- | pp_pack.c | 6 |
1 files changed, 6 insertions, 0 deletions
@@ -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 |