Lines Matching refs:word0
314 #define word0(x) (x)->L[1] macro
317 #define word0(x) (x)->L[0] macro
1218 L = (word0(x) & Exp_mask) - (P-1)*Exp_msk1;
1227 word0(&u) = L;
1235 word0(&u) = 0x80000 >> L;
1239 word0(&u) = 0;
1263 #define d0 word0(&d)
1310 word0(&d) = d0 >> 16 | d0 << 16;
1335 d0 = word0(d) >> 16 | word0(d) << 16;
1338 #define d0 word0(d)
1432 *bits = 4*P + 8 - k - hi0bits(word0(d) & Frac_mask);
1473 word0(&da) += (k >> 2)*Exp_msk1;
1479 word0(&db) += (k >> 2)*Exp_msk1;
1485 word0(&da) += k*Exp_msk1;
1488 word0(&db) += k*Exp_msk1;
1680 word0(rvp) = Exp_mask | x[0];
1959 word0(rvp) = 0;
1977 word0(rvp) = Big0;
2042 word0(rvp) = Exp_mask;
2124 word0(rvp) = b->wds > 1 ? b->x[1] & ~0x100000 : 0;
2126 word0(rvp) = (b->x[1] & ~0x100000) | ((e + 0x3ff + 52) << 20);
2151 word0(rvp) = b->x[1] | ((e + 65 + 13) << 24);
2158 word0(rvp) = ((b->x[1] & ~0x800000) >> 16) | ((e + 129 + 55) << 7) | (b->x[1] << 16);
2316 if (!bc->scale || (i = 2*P + 1 - ((word0(x) & Exp_mask) >> Exp_shift)) <= 0)
2318 word0(&u) = Exp_1 + (i << Exp_shift);
2349 word0(rv) = (P+2) << Exp_shift;
2380 word0(rv) = (1 + bc->scale) << Exp_shift;
2382 word0(rv) = Exp_msk1;
2510 if ((j = ((word0(rv) & Exp_mask) >> Exp_shift) - bc->scale) <= 0) {
2516 else if (word0(rv) & (0x1 << (i-32)))
2740 word0(&rv) = 0x7ff00000;
2748 word0(&rv) = NAN_WORD0;
2828 word0(&rv) -= P*Exp_msk1;
2830 if ((word0(&rv) & Exp_mask)
2833 word0(&rv) += P*Exp_msk1;
2891 word0(&rv) = Big0;
2895 word0(&rv) = Exp_mask;
2899 word0(&rv) = Exp_mask;
2908 word0(&rv) = Big0;
2929 word0(&rv) -= P*Exp_msk1;
2931 if ((z = word0(&rv) & Exp_mask)
2937 word0(&rv) = Big0;
2941 word0(&rv) += P*Exp_msk1;
2957 if (bc.scale && (j = 2*P + 1 - ((word0(&rv) & Exp_mask)
2965 word0(&rv) = (P+2)*Exp_msk1;
2967 word0(&rv) &= 0xffffffff << (j-32);
2989 word0(&rv) = Tiny0;
3162 && !(word0(&rv) & Frac_mask)) {
3163 y = word0(&rv) & Exp_mask;
3177 if (bc.scale && (y = word0(&rv) & Exp_mask)
3179 word0(&adj) += (2*P+1)*Exp_msk1 - y;
3182 if ((word0(&rv) & Exp_mask) <=
3184 word0(&rv) += P*Exp_msk1;
3186 word0(&rv) -= P*Exp_msk1;
3208 if (bc.scale && (y = word0(&rv) & Exp_mask) <= 2*P*Exp_msk1)
3209 word0(&adj) += (2*P+1)*Exp_msk1 - y;
3212 if ((word0(&rv) & Exp_mask) <= P*Exp_msk1) {
3213 word0(&rv) += P*Exp_msk1;
3219 word0(&rv) -= P*Exp_msk1;
3226 if (word0(&rv) == Big0 && word1(&rv) == Big1)
3240 if (bc.dsign || word1(&rv) || word0(&rv) & Bndry_mask
3243 || (word0(&rv) & Exp_mask) <= (2*P+1)*Exp_msk1
3245 || (word0(&rv) & Exp_mask) <= Exp_msk1
3270 if ((word0(&rv) & Bndry_mask1) == Bndry_mask1
3273 (bc.scale && (y = word0(&rv) & Exp_mask) <= 2*P*Exp_msk1)
3278 if (word0(&rv) == Big0 && word1(&rv) == Big1)
3280 word0(&rv) = (word0(&rv) & Exp_mask)
3293 else if (!(word0(&rv) & Bndry_mask) && !word1(&rv)) {
3297 L = word0(&rv) & Exp_mask;
3318 L = word0(&rv) & Exp_mask;
3333 L = (word0(&rv) & Exp_mask) - Exp_msk1;
3335 word0(&rv) = L | Bndry_mask1;
3350 if (!(word0(&rv) & Lsb1))
3392 else if (word1(&rv) || word0(&rv) & Bndry_mask) {
3394 if (word1(&rv) == Tiny1 && !word0(&rv)) {
3433 y = word0(&rv) & Exp_mask;
3439 word0(&rv) -= P*Exp_msk1;
3442 if ((word0(&rv) & Exp_mask) >=
3444 if (word0(&rv0) == Big0 && word1(&rv0) == Big1)
3446 word0(&rv) = Big0;
3451 word0(&rv) += P*Exp_msk1;
3463 word0(&aadj2) += (2*P+1)*Exp_msk1 - y;
3483 if ((word0(&rv) & Exp_mask) <= P*Exp_msk1) {
3485 word0(&rv) += P*Exp_msk1;
3489 if ((word0(&rv) & Exp_mask) < P*Exp_msk1)
3491 if ((word0(&rv) & Exp_mask) <= P*Exp_msk1)
3494 if (word0(&rv0) == Tiny0
3502 word0(&rv) = Tiny0;
3507 word0(&rv) -= P*Exp_msk1;
3531 z = word0(&rv) & Exp_mask;
3542 if (bc.dsign || word1(&rv) || word0(&rv) & Bndry_mask) {
3567 y = word0(&rv) & Exp_mask;
3577 word0(&rv0) = Exp_1 + (70 << Exp_shift);
3587 word0(&rv0) = Exp_1 - 2*P*Exp_msk1;
3593 if (!(word0(&rv) & Exp_mask))
3595 if (word0(&rv) == 0 && word1(&rv) == 0)
3602 if (bc.inexact && !(word0(&rv) & Exp_mask)) {
3798 if (word0(&u) & Sign_bit) {
3801 word0(&u) &= ~Sign_bit; /* clear sign bit */
3808 if ((word0(&u) & Exp_mask) == Exp_mask)
3810 if (word0(&u) == 0x8000)
3816 if (!word1(&u) && !(word0(&u) & 0xfffff))
3846 i = (int)(word0(&u) >> Exp_shift1 & (Exp_mask>>Exp_shift1));
3848 if ((i = (int)(word0(&u) >> Exp_shift1 & (Exp_mask>>Exp_shift1)))) {
3851 word0(&d2) &= Frac_mask1;
3852 word0(&d2) |= Exp_11;
3854 if (j = 11 - hi0bits(word0(&d2) & Frac_mask))
3892 x = i > 32 ? word0(&u) << (64 - i) | word1(&u) >> (i - 32)
3895 word0(&d2) -= 31*Exp_msk1; /* adjust exponent */
4020 word0(&eps) -= (P-1)*Exp_msk1;
4039 word0(&eps1) -= Exp_msk1 * (Bias+P-1);
4199 if (!word1(&u) && !(word0(&u) & Bndry_mask)
4201 && word0(&u) & (Exp_mask & ~Exp_msk1)
4407 word0(&u) = Exp_1 + (70 << Exp_shift);
