Lines Matching refs:word0
314 #define word0(x) (x)->L[1] macro
317 #define word0(x) (x)->L[0] macro
1215 L = (word0(x) & Exp_mask) - (P-1)*Exp_msk1;
1224 word0(&u) = L;
1232 word0(&u) = 0x80000 >> L;
1236 word0(&u) = 0;
1260 #define d0 word0(&d)
1307 word0(&d) = d0 >> 16 | d0 << 16;
1332 d0 = word0(d) >> 16 | word0(d) << 16;
1335 #define d0 word0(d)
1429 *bits = 4*P + 8 - k - hi0bits(word0(d) & Frac_mask);
1470 word0(&da) += (k >> 2)*Exp_msk1;
1476 word0(&db) += (k >> 2)*Exp_msk1;
1482 word0(&da) += k*Exp_msk1;
1485 word0(&db) += k*Exp_msk1;
1677 word0(rvp) = Exp_mask | x[0];
1956 word0(rvp) = 0;
1974 word0(rvp) = Big0;
2039 word0(rvp) = Exp_mask;
2121 word0(rvp) = b->wds > 1 ? b->x[1] & ~0x100000 : 0;
2123 word0(rvp) = (b->x[1] & ~0x100000) | ((e + 0x3ff + 52) << 20);
2148 word0(rvp) = b->x[1] | ((e + 65 + 13) << 24);
2155 word0(rvp) = ((b->x[1] & ~0x800000) >> 16) | ((e + 129 + 55) << 7) | (b->x[1] << 16);
2313 if (!bc->scale || (i = 2*P + 1 - ((word0(x) & Exp_mask) >> Exp_shift)) <= 0)
2315 word0(&u) = Exp_1 + (i << Exp_shift);
2346 word0(rv) = (P+2) << Exp_shift;
2377 word0(rv) = (1 + bc->scale) << Exp_shift;
2379 word0(rv) = Exp_msk1;
2507 if ((j = ((word0(rv) & Exp_mask) >> Exp_shift) - bc->scale) <= 0) {
2513 else if (word0(rv) & (0x1 << (i-32)))
2737 word0(&rv) = 0x7ff00000;
2745 word0(&rv) = NAN_WORD0;
2825 word0(&rv) -= P*Exp_msk1;
2827 if ((word0(&rv) & Exp_mask)
2830 word0(&rv) += P*Exp_msk1;
2888 word0(&rv) = Big0;
2892 word0(&rv) = Exp_mask;
2896 word0(&rv) = Exp_mask;
2905 word0(&rv) = Big0;
2926 word0(&rv) -= P*Exp_msk1;
2928 if ((z = word0(&rv) & Exp_mask)
2934 word0(&rv) = Big0;
2938 word0(&rv) += P*Exp_msk1;
2954 if (bc.scale && (j = 2*P + 1 - ((word0(&rv) & Exp_mask)
2962 word0(&rv) = (P+2)*Exp_msk1;
2964 word0(&rv) &= 0xffffffff << (j-32);
2986 word0(&rv) = Tiny0;
3159 && !(word0(&rv) & Frac_mask)) {
3160 y = word0(&rv) & Exp_mask;
3174 if (bc.scale && (y = word0(&rv) & Exp_mask)
3176 word0(&adj) += (2*P+1)*Exp_msk1 - y;
3179 if ((word0(&rv) & Exp_mask) <=
3181 word0(&rv) += P*Exp_msk1;
3183 word0(&rv) -= P*Exp_msk1;
3205 if (bc.scale && (y = word0(&rv) & Exp_mask) <= 2*P*Exp_msk1)
3206 word0(&adj) += (2*P+1)*Exp_msk1 - y;
3209 if ((word0(&rv) & Exp_mask) <= P*Exp_msk1) {
3210 word0(&rv) += P*Exp_msk1;
3216 word0(&rv) -= P*Exp_msk1;
3223 if (word0(&rv) == Big0 && word1(&rv) == Big1)
3237 if (bc.dsign || word1(&rv) || word0(&rv) & Bndry_mask
3240 || (word0(&rv) & Exp_mask) <= (2*P+1)*Exp_msk1
3242 || (word0(&rv) & Exp_mask) <= Exp_msk1
3267 if ((word0(&rv) & Bndry_mask1) == Bndry_mask1
3270 (bc.scale && (y = word0(&rv) & Exp_mask) <= 2*P*Exp_msk1)
3275 if (word0(&rv) == Big0 && word1(&rv) == Big1)
3277 word0(&rv) = (word0(&rv) & Exp_mask)
3290 else if (!(word0(&rv) & Bndry_mask) && !word1(&rv)) {
3294 L = word0(&rv) & Exp_mask;
3315 L = word0(&rv) & Exp_mask;
3330 L = (word0(&rv) & Exp_mask) - Exp_msk1;
3332 word0(&rv) = L | Bndry_mask1;
3347 if (!(word0(&rv) & Lsb1))
3389 else if (word1(&rv) || word0(&rv) & Bndry_mask) {
3391 if (word1(&rv) == Tiny1 && !word0(&rv)) {
3430 y = word0(&rv) & Exp_mask;
3436 word0(&rv) -= P*Exp_msk1;
3439 if ((word0(&rv) & Exp_mask) >=
3441 if (word0(&rv0) == Big0 && word1(&rv0) == Big1)
3443 word0(&rv) = Big0;
3448 word0(&rv) += P*Exp_msk1;
3460 word0(&aadj2) += (2*P+1)*Exp_msk1 - y;
3480 if ((word0(&rv) & Exp_mask) <= P*Exp_msk1) {
3482 word0(&rv) += P*Exp_msk1;
3486 if ((word0(&rv) & Exp_mask) < P*Exp_msk1)
3488 if ((word0(&rv) & Exp_mask) <= P*Exp_msk1)
3491 if (word0(&rv0) == Tiny0
3499 word0(&rv) = Tiny0;
3504 word0(&rv) -= P*Exp_msk1;
3528 z = word0(&rv) & Exp_mask;
3539 if (bc.dsign || word1(&rv) || word0(&rv) & Bndry_mask) {
3564 y = word0(&rv) & Exp_mask;
3574 word0(&rv0) = Exp_1 + (70 << Exp_shift);
3584 word0(&rv0) = Exp_1 - 2*P*Exp_msk1;
3590 if (!(word0(&rv) & Exp_mask))
3592 if (word0(&rv) == 0 && word1(&rv) == 0)
3599 if (bc.inexact && !(word0(&rv) & Exp_mask)) {
3795 if (word0(&u) & Sign_bit) {
3798 word0(&u) &= ~Sign_bit; /* clear sign bit */
3805 if ((word0(&u) & Exp_mask) == Exp_mask)
3807 if (word0(&u) == 0x8000)
3813 if (!word1(&u) && !(word0(&u) & 0xfffff))
3843 i = (int)(word0(&u) >> Exp_shift1 & (Exp_mask>>Exp_shift1));
3845 if ((i = (int)(word0(&u) >> Exp_shift1 & (Exp_mask>>Exp_shift1)))) {
3848 word0(&d2) &= Frac_mask1;
3849 word0(&d2) |= Exp_11;
3851 if (j = 11 - hi0bits(word0(&d2) & Frac_mask))
3889 x = i > 32 ? word0(&u) << (64 - i) | word1(&u) >> (i - 32)
3892 word0(&d2) -= 31*Exp_msk1; /* adjust exponent */
4017 word0(&eps) -= (P-1)*Exp_msk1;
4036 word0(&eps1) -= Exp_msk1 * (Bias+P-1);
4196 if (!word1(&u) && !(word0(&u) & Bndry_mask)
4198 && word0(&u) & (Exp_mask & ~Exp_msk1)
4404 word0(&u) = Exp_1 + (70 << Exp_shift);
