diff options
Diffstat (limited to 'sysdeps/ieee754/ldbl-128/s_tanhl.c')
-rw-r--r-- | sysdeps/ieee754/ldbl-128/s_tanhl.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/sysdeps/ieee754/ldbl-128/s_tanhl.c b/sysdeps/ieee754/ldbl-128/s_tanhl.c index 129735b1b5..f7a1d20f79 100644 --- a/sysdeps/ieee754/ldbl-128/s_tanhl.c +++ b/sysdeps/ieee754/ldbl-128/s_tanhl.c @@ -41,6 +41,7 @@ * only tanhl(0)=0 is exact for finite argument. */ +#include <float.h> #include <math.h> #include <math_private.h> @@ -73,7 +74,10 @@ __tanhl (long double 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.parts32.w0 = ix; /* Absolute value of x. */ if (ix >= 0x3fff0000) { /* |x| >= 1 */ |