lib/glibc
1
0
Fork 0
mirror of https://sourceware.org/git/glibc.git synced 2025-07-28 00:21:52 +03:00
Code Activity

Use suffixed floating-point constants in float and long double catan/catanh.

Browse Source
This commit is contained in:
Joseph Myers
2013-04-24 18:59:37 +00:00
parent 2f38fbfe09
commit 77f143fdb4
5 changed files with 34 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
math/s_catanhl.c
View File

@ -58,24 +58,24 @@ __catanhl (__complex__ long double x)
{
long double i2 = __imag__ x * __imag__ x;
long double num = 1.0 + __real__ x;
long double num = 1.0L + __real__ x;
num = i2 + num * num;
long double den = 1.0 - __real__ x;
long double den = 1.0L - __real__ x;
den = i2 + den * den;
long double f = num / den;
if (f < 0.5)
__real__ res = 0.25 * __ieee754_logl (f);
if (f < 0.5L)
__real__ res = 0.25L * __ieee754_logl (f);
else
{
num = 4.0 * __real__ x;
__real__ res = 0.25 * __log1pl (num / den);
num = 4.0L * __real__ x;
__real__ res = 0.25L * __log1pl (num / den);
}
den = 1 - __real__ x * __real__ x - i2;
__imag__ res = 0.5 * __ieee754_atan2l (2.0 * __imag__ x, den);
__imag__ res = 0.5L * __ieee754_atan2l (2.0L * __imag__ x, den);
}
return res;