diff options
| author | Craig A. Berry <craigberry@mac.com> | 2012-12-23 13:42:47 -0600 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2012-12-23 13:42:47 -0600 |
| commit | 85bba25fe3bc5148e16eda74c253ecbcfc871984 (patch) | |
| tree | fe3a7f704e8875d24cc3e53ac200cc4c80a25b15 /numeric.c | |
| parent | 7f5d1fb2f5a68c62ce067a88dba574b23dfebba4 (diff) | |
| download | perl-85bba25fe3bc5148e16eda74c253ecbcfc871984.tar.gz | |
Proper IEEE overflow semantics for VMS.
Way back in 67597c89125e7e14 we misspelled _IEEE_FP as __IEEE_FP,
with a spurious leading underscore. Which I then copied and
pasted into pp_pack.c in baf3cf9c09c529. This means that on
Alpha and Itanium systems with the default selection of IEEE
floating point, we've actually (for the last decade!) been
using a workaround intended for VAX or Alpha and Itanium builds
that have explicitly selected VAX-compatible floating point
formats. Oh well.
Diffstat (limited to 'numeric.c')
| -rw-r--r-- | numeric.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -803,7 +803,7 @@ S_mulexp10(NV value, I32 exponent) * a hammer. Therefore we need to catch potential overflows before * it's too late. */ -#if ((defined(VMS) && !defined(__IEEE_FP)) || defined(_UNICOS)) && defined(NV_MAX_10_EXP) +#if ((defined(VMS) && !defined(_IEEE_FP)) || defined(_UNICOS)) && defined(NV_MAX_10_EXP) STMT_START { const NV exp_v = log10(value); if (exponent >= NV_MAX_10_EXP || exponent + exp_v >= NV_MAX_10_EXP) |