diff options
Diffstat (limited to 'math/s_ctanl.c')
| -rw-r--r-- | math/s_ctanl.c | 11 |
1 files changed, 1 insertions, 10 deletions
diff --git a/math/s_ctanl.c b/math/s_ctanl.c index 4783dcbeb9..8b04910846 100644 --- a/math/s_ctanl.c +++ b/math/s_ctanl.c @@ -124,16 +124,7 @@ __ctanl (__complex__ long double x) __real__ res = sinrx * cosrx / den; __imag__ res = sinhix * coshix / den; } - if (fabsl (__real__ res) < LDBL_MIN) - { - long double force_underflow = __real__ res * __real__ res; - math_force_eval (force_underflow); - } - if (fabsl (__imag__ res) < LDBL_MIN) - { - long double force_underflow = __imag__ res * __imag__ res; - math_force_eval (force_underflow); - } + math_check_force_underflow_complex (res); } return res; |