diff options
| author | Joseph Myers <joseph@codesourcery.com> | 2013-04-24 18:49:13 +0000 |
|---|---|---|
| committer | Joseph Myers <joseph@codesourcery.com> | 2013-04-24 18:49:13 +0000 |
| commit | 2f38fbfe09e4856c571bf0c80844e5dac9bc77ec (patch) | |
| tree | 6fc88a0757c95d123f8e8cd9b14e973c9a654d88 /math/s_catanhl.c | |
| parent | 45d69176e8b6dc0787dcb8e52e4283b8e7e5e282 (diff) | |
| download | glibc-2f38fbfe09e4856c571bf0c80844e5dac9bc77ec.tar.gz glibc-2f38fbfe09e4856c571bf0c80844e5dac9bc77ec.tar.xz glibc-2f38fbfe09e4856c571bf0c80844e5dac9bc77ec.zip | |
Fix catan, catanh inaccuracy through use of log (bug 15394).
Diffstat (limited to 'math/s_catanhl.c')
| -rw-r--r-- | math/s_catanhl.c | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/math/s_catanhl.c b/math/s_catanhl.c index 6844f03dea..4897c0c871 100644 --- a/math/s_catanhl.c +++ b/math/s_catanhl.c @@ -64,7 +64,14 @@ __catanhl (__complex__ long double x) long double den = 1.0 - __real__ x; den = i2 + den * den; - __real__ res = 0.25 * (__ieee754_logl (num) - __ieee754_logl (den)); + long double f = num / den; + if (f < 0.5) + __real__ res = 0.25 * __ieee754_logl (f); + else + { + num = 4.0 * __real__ x; + __real__ res = 0.25 * __log1pl (num / den); + } den = 1 - __real__ x * __real__ x - i2; |