OpenE2K
/
glibc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Remove tacit double usage in ldbl-128 

There is quiet truncation to double arithmetic in several
files.  I noticed them when building ldbl-128 in a
soft-fp context.  This did not change any test results.
This commit is contained in:
Paul E. Murphy 2016-08-02 13:32:06 -05:00
parent b381a388dc
commit cad1d6066f
4 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ChangeLog
View File

@ -1,3 +1,13 @@
2016-08-03 Paul E. Murphy <murphyp@linux.vnet.ibm.com>
* sysdeps/ieee754/ldbl-128/k_tanl.c (__kernal_tanl):
Use fabsl instead of fabs.
* sysdeps/ieee754/ldbl-128/s_logbl.c (__logbl):
Likewise.
* sysdeps/ieee754/ldbl-128/s_atanl.c (__kernel_tanl):
Add long double suffix to constant to ensure proper
promotion to long double.
2016-08-03 Tom Tromey <tom@tromey.com>
[BZ #20311]

2
sysdeps/ieee754/ldbl-128/k_tanl.c
View File

@ -98,7 +98,7 @@ __kernel_tanl (long double x, long double y, int iy)
{ /* generate inexact */
if ((ix | u.parts32.w1 | u.parts32.w2 | u.parts32.w3
| (iy + 1)) == 0)
return one / fabs (x);
return one / fabsl (x);
else if (iy == 1)
{
math_check_force_underflow (x);

2
sysdeps/ieee754/ldbl-128/s_atanl.c
View File

@ -231,7 +231,7 @@ __atanl (long double x)
Roundoff to integer is asymmetrical to avoid cancellation when t < 0
(cf. fdlibm). */
k = 8.0 * x + 0.25;
u = 0.125 * k;
u = 0.125L * k;
/* Small arctan argument. */
t = (x - u) / (1.0 + x * u);
}

2
sysdeps/ieee754/ldbl-128/s_logbl.c
View File

@ -34,7 +34,7 @@ __logbl (long double x)
GET_LDOUBLE_WORDS64 (hx, lx, x);
hx &= 0x7fffffffffffffffLL; /* high |x| */
if ((hx | lx) == 0)
return -1.0 / fabs (x);
return -1.0 / fabsl (x);
if (hx >= 0x7fff000000000000LL)
return x * x;
if ((ex = hx >> 48) == 0) /* IEEE 754 logb */