X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=numeric.c;h=68c16712e540940c00e0226e635f80d17c049661;hb=26f423df377276528161ee2c2bb3d257fc527c90;hp=e7a5e8d7e69a0aa7d21088a0d76f10fe0033b36e;hpb=aa8b85def9003d4bba549b6080f6f4864f347f13;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/numeric.c b/numeric.c
index e7a5e8d..68c1671 100644
--- a/numeric.c
+++ b/numeric.c
@@ -572,19 +572,12 @@ S_mulexp10(NV value, I32 exponent)
 	negative = 1;
 	exponent = -exponent;
     }
-#ifdef __VAX /* avoid %SYSTEM-F-FLTOVF_F sans VAXC$ESTABLISH */
-#  if defined(__DECC_VER) && __DECC_VER <= 50390006
-    /* __F_FLT_MAX_10_EXP - 5 == 33 */
-    if (!negative &&
-          (log10(value) + exponent) >= (__F_FLT_MAX_10_EXP - 5))
-        return NV_MAX;
-#  endif
-#endif
     for (bit = 1; exponent; bit <<= 1) {
 	if (exponent & bit) {
 	    exponent ^= bit;
 	    result *= power;
 	}
+	/* Floating point exceptions are supposed to be turned off. */
 	power *= power;
     }
     return negative ? value / result : value * result;