diff options
Diffstat (limited to 'math/s_csqrt.c')
-rw-r--r-- | math/s_csqrt.c | 12 |
1 files changed, 2 insertions, 10 deletions
diff --git a/math/s_csqrt.c b/math/s_csqrt.c index b86f53322e..9a3d5d6dd2 100644 --- a/math/s_csqrt.c +++ b/math/s_csqrt.c @@ -148,16 +148,8 @@ __csqrt (__complex__ double x) s = __scalbn (s, scale); } - if (fabs (r) < DBL_MIN) - { - double force_underflow = r * r; - math_force_eval (force_underflow); - } - if (fabs (s) < DBL_MIN) - { - 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 = __copysign (s, __imag__ x); |