diff options
Diffstat (limited to 'math/s_csqrtl.c')
| -rw-r--r-- | math/s_csqrtl.c | 12 |
1 files changed, 2 insertions, 10 deletions
diff --git a/math/s_csqrtl.c b/math/s_csqrtl.c index 003d614f60..f9f31b28fc 100644 --- a/math/s_csqrtl.c +++ b/math/s_csqrtl.c @@ -148,16 +148,8 @@ __csqrtl (__complex__ long double x) s = __scalbnl (s, scale); } - if (fabsl (r) < LDBL_MIN) - { - long double force_underflow = r * r; - math_force_eval (force_underflow); - } - if (fabsl (s) < LDBL_MIN) - { - long double force_underflow = s * s; - math_force_eval (force_underflow); - } + math_check_force_underflow (r); + math_check_force_underflow (s); __real__ res = r; __imag__ res = __copysignl (s, __imag__ x); |