projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
574bacf
)
Avoid SIGFPE in Tru64.
author
Jarkko Hietaniemi
<jhi@iki.fi>
Sun, 5 Aug 2001 23:07:50 +0000
(23:07 +0000)
committer
Jarkko Hietaniemi
<jhi@iki.fi>
Sun, 5 Aug 2001 23:07:50 +0000
(23:07 +0000)
p4raw-id: //depot/perl@11592
numeric.c
patch
|
blob
|
history
diff --git
a/numeric.c
b/numeric.c
index
e7a5e8d
..
8d94975
100644
(file)
--- a/
numeric.c
+++ b/
numeric.c
@@
-580,6
+580,11
@@
S_mulexp10(NV value, I32 exponent)
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;