From: "Craig A. Berry" <craigberry@mac.com>
Message-Id: <
a05111b02b92724737054@[172.16.52.1]>
Handle also underflow on non-IEEE.
p4raw-id: //depot/perl@17081
* [1] Trying to establish a condition handler to trap floating point
* exceptions is not a good idea. */
#if defined(VMS) && !defined(__IEEE_FP) && defined(NV_MAX_10_EXP)
- if (!negative &&
- (log10(value) + exponent) >= (NV_MAX_10_EXP))
- return NV_MAX;
+ if ((log10(value) + exponent) >= (NV_MAX_10_EXP))
+ return negative ? 0.0 : NV_MAX;
#endif
/* In UNICOS and in certain Cray models (such as T90) there is no