diff options
Diffstat (limited to 'sysdeps/ieee754/ldbl-128ibm/s_tanhl.c')
| -rw-r--r-- | sysdeps/ieee754/ldbl-128ibm/s_tanhl.c | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/sysdeps/ieee754/ldbl-128ibm/s_tanhl.c b/sysdeps/ieee754/ldbl-128ibm/s_tanhl.c index 5342a8b..292020c 100644 --- a/sysdeps/ieee754/ldbl-128ibm/s_tanhl.c +++ b/sysdeps/ieee754/ldbl-128ibm/s_tanhl.c @@ -68,11 +68,7 @@ long double __tanhl(long double x) return x; /* x == +-0 */ if (ix<0x3c60000000000000LL) /* |x|<2**-57 */ { - if (fabsl (x) < LDBL_MIN) - { - long double force_underflow = x * x; - math_force_eval (force_underflow); - } + math_check_force_underflow (x); return x*(one+x); /* tanh(small) = small */ } if (ix>=0x3ff0000000000000LL) { /* |x|>=1 */ |