summaryrefslogtreecommitdiff
path: root/libquadmath/math/tanhq.c
diff options
context:
space:
mode:
Diffstat (limited to 'libquadmath/math/tanhq.c')
-rw-r--r--libquadmath/math/tanhq.c5
1 files changed, 4 insertions, 1 deletions
diff --git a/libquadmath/math/tanhq.c b/libquadmath/math/tanhq.c
index 4ef4fd02143..6b60dbf1b2f 100644
--- a/libquadmath/math/tanhq.c
+++ b/libquadmath/math/tanhq.c
@@ -72,7 +72,10 @@ tanhq (__float128 x)
if (u.value == 0)
return x; /* x == +- 0 */
if (ix < 0x3fc60000) /* |x| < 2^-57 */
- return x * (one + tiny); /* tanh(small) = small */
+ {
+ math_check_force_underflow (x);
+ return x * (one + tiny); /* tanh(small) = small */
+ }
u.words32.w0 = ix; /* Absolute value of x. */
if (ix >= 0x3fff0000)
{ /* |x| >= 1 */