diff options
Diffstat (limited to 'math/s_ctanl.c')
| -rw-r--r-- | math/s_ctanl.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/math/s_ctanl.c b/math/s_ctanl.c index 1f927553fd..0fd0039053 100644 --- a/math/s_ctanl.c +++ b/math/s_ctanl.c @@ -60,12 +60,11 @@ __ctanl (__complex__ long double x) long double sinrx, cosrx; long double den; const int t = (int) ((LDBL_MAX_EXP - 1) * M_LN2l / 2); - int rcls = fpclassify (__real__ x); /* tan(x+iy) = (sin(2x) + i*sinh(2y))/(cos(2x) + cosh(2y)) = (sin(x)*cos(x) + i*sinh(y)*cosh(y)/(cos(x)^2 + sinh(y)^2). */ - if (__glibc_likely (rcls != FP_SUBNORMAL)) + if (__glibc_likely (fabsl (__real__ x) > LDBL_MIN)) { __sincosl (__real__ x, &sinrx, &cosrx); } |