From: Hugo van der Sanden <hv@crypt.org>
Date: Sun, 9 Jun 2002 14:52:07 +0000 (+0100)
Subject: Re: [PATCH #2] Re: [PATCH] numeric.c:S_mulexp10 -- quit when you can
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=19f7f51e90250f5d789968dd6dee2f966766468d;p=p5sagit%2Fp5-mst-13.2.git

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
---

diff --git a/numeric.c b/numeric.c
index f95fde3..135e86a 100644
--- a/numeric.c
+++ b/numeric.c
@@ -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