Change 11592 by jhi@alpha on 2001/08/05 23:07:50
Avoid SIGFPE in Tru64.
Affected files ...
... //depot/perl/numeric.c#8 edit
Differences ...
==== //depot/perl/numeric.c#8 (text) ====
Index: perl/numeric.c
--- perl/numeric.c.~1~ Sun Aug 5 17:15:05 2001
+++ perl/numeric.c Sun Aug 5 17:15:05 2001
@@ -580,6 +580,11 @@
return NV_MAX;
# endif
#endif
+#if defined(__alpha) && defined(__unix__)
+ if (!negative &&
+ (log10(value) + exponent) >= (DBL_MAX_10_EXP))
+ return NV_INF;
+#endif
for (bit = 1; exponent; bit <<= 1) {
if (exponent & bit) {
exponent ^= bit;
End of Patch.
