aboutsummaryrefslogtreecommitdiff
path: root/math/s_casinhl.c
diff options
context:
space:
mode:
authorJoseph Myers <joseph@codesourcery.com>2013-01-17 20:25:51 +0000
committerJoseph Myers <joseph@codesourcery.com>2013-01-17 20:25:51 +0000
commit728d7b43fc8a4f9b3ec772fd8b75a39b945e9f04 (patch)
tree4033b2b21fd505dc1b607ea1ed589818fe838ef2 /math/s_casinhl.c
parent2a26ef3a012cc29623423ca52c1cc8001d847d54 (diff)
downloadglibc-728d7b43fc8a4f9b3ec772fd8b75a39b945e9f04.zip
glibc-728d7b43fc8a4f9b3ec772fd8b75a39b945e9f04.tar.gz
glibc-728d7b43fc8a4f9b3ec772fd8b75a39b945e9f04.tar.bz2
Fix cacos real-part inaccuracy for result real part near 0 (bug 15023).
Diffstat (limited to 'math/s_casinhl.c')
-rw-r--r--math/s_casinhl.c43
1 files changed, 1 insertions, 42 deletions
diff --git a/math/s_casinhl.c b/math/s_casinhl.c
index d7c7459..2afc527 100644
--- a/math/s_casinhl.c
+++ b/math/s_casinhl.c
@@ -20,14 +20,6 @@
#include <complex.h>
#include <math.h>
#include <math_private.h>
-#include <float.h>
-
-/* To avoid spurious overflows, use this definition to treat IBM long
- double as approximating an IEEE-style format. */
-#if LDBL_MANT_DIG == 106
-# undef LDBL_EPSILON
-# define LDBL_EPSILON 0x1p-106L
-#endif
__complex__ long double
__casinhl (__complex__ long double x)
@@ -69,40 +61,7 @@ __casinhl (__complex__ long double x)
}
else
{
- long double rx, ix;
- __complex__ long double y;
-
- /* Avoid cancellation by reducing to the first quadrant. */
- rx = fabsl (__real__ x);
- ix = fabsl (__imag__ x);
-
- if (rx >= 1.0L / LDBL_EPSILON || ix >= 1.0L / LDBL_EPSILON)
- {
- /* For large x in the first quadrant, x + csqrt (1 + x * x)
- is sufficiently close to 2 * x to make no significant
- difference to the result; avoid possible overflow from
- the squaring and addition. */
- __real__ y = rx;
- __imag__ y = ix;
- res = __clogl (y);
- __real__ res += M_LN2l;
- }
- else
- {
- __real__ y = (rx - ix) * (rx + ix) + 1.0;
- __imag__ y = 2.0 * rx * ix;
-
- y = __csqrtl (y);
-
- __real__ y += rx;
- __imag__ y += ix;
-
- res = __clogl (y);
- }
-
- /* Give results the correct sign for the original argument. */
- __real__ res = __copysignl (__real__ res, __real__ x);
- __imag__ res = __copysignl (__imag__ res, __imag__ x);
+ res = __kernel_casinhl (x, 0);
}
return res;