diff options
| author | Hugo van der Sanden <hv@crypt.org> | 2002-06-09 15:52:07 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-06-09 16:49:49 +0000 |
| commit | 19f7f51e90250f5d789968dd6dee2f966766468d (patch) | |
| tree | 793ca28b0d2b0be69a892f1381461fb03df6c270 /numeric.c | |
| parent | 96fa8c42c795adad8ad14fbfa75a407406a5430e (diff) | |
| download | perl-19f7f51e90250f5d789968dd6dee2f966766468d.tar.gz | |
Re: [PATCH #2] Re: [PATCH] numeric.c:S_mulexp10 -- quit when you can
Message-Id: <200206091352.g59Dq7Z28403@crypt.compulink.co.uk>
p4raw-id: //depot/perl@17139
Diffstat (limited to 'numeric.c')
| -rw-r--r-- | numeric.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -743,7 +743,8 @@ S_mulexp10(NV value, I32 exponent) * * [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) + /* UNICOS fp is similarly non-IEEE. */ +#if ((defined(VMS) && !defined(__IEEE_FP)) || defined(_UNICOS)) && defined(NV_MAX_10_EXP) if ((log10(value) + exponent) >= (NV_MAX_10_EXP)) return negative ? 0.0 : NV_MAX; #endif |