@@ -65,7 +65,7 @@ __ieee754_atan2l(_Float128 y, _Float128 x)
if(((ix|((lx|-lx)>>63))>0x7fff000000000000LL)||
((iy|((ly|-ly)>>63))>0x7fff000000000000LL)) /* x or y is NaN */
return x+y;
- if(((hx-0x3fff000000000000LL)|lx)==0) return __atanl(y); /* x=1 */
+ if(((hx-0x3fff000000000000LL)|lx)==0) return __atanl(y); /* x=1.0L */
m = ((hy>>63)&1)|((hx>>62)&2); /* 2*sign(x)+sign(y) */
/* when y = 0 */
@@ -39,7 +39,7 @@ __ieee754_exp10l (_Float128 arg)
return 1;
u.value = arg;
- u.parts64sw &= 0xfe00000000000000LL;
+ u.parts64.lsw &= 0xfe00000000000000LL;
arg_high = u.value;
arg_low = arg - arg_high;
exp_high = arg_high * log10_high;
@@ -328,7 +328,7 @@ __ieee754_ynl (int n, _Float128 x)
if (x <= 0)
{
if (x == 0)
- return ((n < 0 && (n & 1) != 0) ? 1 : -1) / 0;
+ return ((n < 0 && (n & 1) != 0) ? 1 : -1) / L(0.0);
if (se & 0x80000000)
return zero / (zero * x);
}
@@ -450,7 +450,7 @@ __lgamma_negl (_Float128 x, int *signgamp)
integers and determine the sign of the result. */
int i = __floorl (-2 * x);
if ((i & 1) == 0 && i == -2 * x)
- return 1 / 0;
+ return L(1.0) / L(0.0);
_Float128 xn = ((i & 1) == 0 ? -i / 2 : (-i - 1) / 2);
i -= 4;
*signgamp = ((i & 2) == 0 ? -1 : 1);
@@ -261,10 +261,10 @@ __fmal (_Float128 x, _Float128 y, _Float128 z)
if (v.ieee.exponent > 228)
return (a1 + u.d) * L(0x1p-228);
/* If v.d * 0x1p-228L with round to zero is a subnormal above
- or equal to LDBL_MIN / 2, then v.d * L(0x1p-228) shifts mantissa
+ or equal to LDBL_MIN / 2, then v.d * 0x1p-228L shifts mantissa
down just by 1 bit, which means v.ieee.mantissa3 |= j would
change the round bit, not sticky or guard bit.
- v.d * L(0x1p-228) never normalizes by shifting up,
+ v.d * 0x1p-228L never normalizes by shifting up,
so round bit plus sticky bit should be already enough
for proper rounding. */
if (v.ieee.exponent == 228)