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_catanl.c
View File

@ -67,21 +67,21 @@ __catanl (__complex__ long double x)
den = 1 - r2 - __imag__ x * __imag__ x;
__real__ res = 0.5 * __ieee754_atan2l (2.0 * __real__ x, den);
__real__ res = 0.5L * __ieee754_atan2l (2.0L * __real__ x, den);
num = __imag__ x + 1.0;
num = __imag__ x + 1.0L;
num = r2 + num * num;
den = __imag__ x - 1.0;
den = __imag__ x - 1.0L;
den = r2 + den * den;
f = num / den;
if (f < 0.5)
__imag__ res = 0.25 * __ieee754_logl (f);
if (f < 0.5L)
__imag__ res = 0.25L * __ieee754_logl (f);
else
{
num = 4.0 * __imag__ x;
__imag__ res = 0.25 * __log1pl (num / den);
num = 4.0L * __imag__ x;
__imag__ res = 0.25L * __log1pl (num / den);
}
}