aboutsummaryrefslogtreecommitdiff
path: root/math/s_catanhf.c
diff options
context:
space:
mode:
authorJoseph Myers <joseph@codesourcery.com>2013-05-01 10:07:00 +0000
committerJoseph Myers <joseph@codesourcery.com>2013-05-01 10:07:00 +0000
commit10de07f5fdd9eaf3a808d4461401f5b661095614 (patch)
tree844a1ed48df767e65d46a429f0e1b062e0e2fad5 /math/s_catanhf.c
parentcb4d54147e620f4267d1c675bf2daec0a8e7c809 (diff)
downloadglibc-10de07f5fdd9eaf3a808d4461401f5b661095614.tar
glibc-10de07f5fdd9eaf3a808d4461401f5b661095614.tar.gz
glibc-10de07f5fdd9eaf3a808d4461401f5b661095614.tar.bz2
glibc-10de07f5fdd9eaf3a808d4461401f5b661095614.zip
Fix catan, catanh spurious underflows (bug 15423).
Diffstat (limited to 'math/s_catanhf.c')
-rw-r--r--math/s_catanhf.c42
1 files changed, 26 insertions, 16 deletions
diff --git a/math/s_catanhf.c b/math/s_catanhf.c
index 249deb5669..0a08b95b58 100644
--- a/math/s_catanhf.c
+++ b/math/s_catanhf.c
@@ -73,24 +73,34 @@ __catanhf (__complex__ float x)
}
else
{
- float i2 = __imag__ x * __imag__ x;
+ if (fabsf (__real__ x) == 1.0f
+ && fabsf (__imag__ x) < FLT_EPSILON * FLT_EPSILON)
+ __real__ res = (__copysignf (0.5f, __real__ x)
+ * ((float) M_LN2
+ - __ieee754_logf (fabsf (__imag__ x))));
+ else
+ {
+ float i2 = 0.0f;
+ if (fabsf (__imag__ x) >= FLT_EPSILON * FLT_EPSILON)
+ i2 = __imag__ x * __imag__ x;
- float num = 1.0f + __real__ x;
- num = i2 + num * num;
+ float num = 1.0f + __real__ x;
+ num = i2 + num * num;
- float den = 1.0f - __real__ x;
- den = i2 + den * den;
+ float den = 1.0f - __real__ x;
+ den = i2 + den * den;
- float f = num / den;
- if (f < 0.5f)
- __real__ res = 0.25f * __ieee754_logf (f);
- else
- {
- num = 4.0f * __real__ x;
- __real__ res = 0.25f * __log1pf (num / den);
+ float f = num / den;
+ if (f < 0.5f)
+ __real__ res = 0.25f * __ieee754_logf (f);
+ else
+ {
+ num = 4.0f * __real__ x;
+ __real__ res = 0.25f * __log1pf (num / den);
+ }
}
- float absx, absy;
+ float absx, absy, den;
absx = fabsf (__real__ x);
absy = fabsf (__imag__ x);
@@ -101,10 +111,10 @@ __catanhf (__complex__ float x)
absy = t;
}
- if (absx >= 1.0f)
- den = (1.0f - absx) * (1.0f + absx) - absy * absy;
- else if (absx >= 0.75f && absy < FLT_EPSILON / 2.0f)
+ if (absy < FLT_EPSILON / 2.0f)
den = (1.0f - absx) * (1.0f + absx);
+ else if (absx >= 1.0f)
+ den = (1.0f - absx) * (1.0f + absx) - absy * absy;
else if (absx >= 0.75f || absy >= 0.5f)
den = -__x2y2m1f (absx, absy);
else