Lines Matching defs:word0
307 #define word0(x) (x)->L[1]
310 #define word0(x) (x)->L[0]
1163 L = (word0(x) & Exp_mask) - (P-1)*Exp_msk1;
1172 word0(&u) = L;
1180 word0(&u) = 0x80000 >> L;
1184 word0(&u) = 0;
1208 #define d0 word0(&d)
1255 word0(&d) = d0 >> 16 | d0 << 16;
1280 d0 = word0(d) >> 16 | word0(d) << 16;
1283 #define d0 word0(d)
1377 *bits = 4*P + 8 - k - hi0bits(word0(d) & Frac_mask);
1418 word0(&da) += (k >> 2)*Exp_msk1;
1424 word0(&db) += (k >> 2)*Exp_msk1;
1430 word0(&da) += k*Exp_msk1;
1433 word0(&db) += k*Exp_msk1;
1612 word0(rvp) = Exp_mask | x[0];
1886 word0(rvp) = 0;
1904 word0(rvp) = Big0;
1969 word0(rvp) = Exp_mask;
2051 word0(rvp) = b->wds > 1 ? b->x[1] & ~0x100000 : 0;
2053 word0(rvp) = (b->x[1] & ~0x100000) | ((e + 0x3ff + 52) << 20);
2078 word0(rvp) = b->x[1] | ((e + 65 + 13) << 24);
2083 /* word0(rvp) = (b->x[1] & ~0x800000) | ((e + 129 + 55) << 23); */
2085 word0(rvp) = ((b->x[1] & ~0x800000) >> 16) | ((e + 129 + 55) << 7) | (b->x[1] << 16);
2249 word0(rv) = (P+2) << Exp_shift;
2280 word0(rv) = (1 + bc->scale) << Exp_shift;
2282 word0(rv) = Exp_msk1;
2612 word0(&rv) = 0x7ff00000;
2620 word0(&rv) = NAN_WORD0;
2699 word0(&rv) -= P*Exp_msk1;
2701 if ((word0(&rv) & Exp_mask)
2704 word0(&rv) += P*Exp_msk1;
2764 word0(&rv) = Big0;
2768 word0(&rv) = Exp_mask;
2772 word0(&rv) = Exp_mask;
2781 word0(&rv) = Big0;
2791 word0(&rv) -= P*Exp_msk1;
2793 if ((z = word0(&rv) & Exp_mask)
2799 word0(&rv) = Big0;
2803 word0(&rv) += P*Exp_msk1;
2819 if (bc.scale && (j = 2*P + 1 - ((word0(&rv) & Exp_mask)
2825 word0(&rv) = (P+2)*Exp_msk1;
2827 word0(&rv) &= 0xffffffff << (j-32);
2852 word0(&rv) = Tiny0;
3014 && !(word0(&rv) & Frac_mask)) {
3015 y = word0(&rv) & Exp_mask;
3029 if (bc.scale && (y = word0(&rv) & Exp_mask)
3031 word0(&adj) += (2*P+1)*Exp_msk1 - y;
3034 if ((word0(&rv) & Exp_mask) <=
3036 word0(&rv) += P*Exp_msk1;
3038 word0(&rv) -= P*Exp_msk1;
3060 if (bc.scale && (y = word0(&rv) & Exp_mask) <= 2*P*Exp_msk1)
3061 word0(&adj) += (2*P+1)*Exp_msk1 - y;
3064 if ((word0(&rv) & Exp_mask) <= P*Exp_msk1) {
3065 word0(&rv) += P*Exp_msk1;
3071 word0(&rv) -= P*Exp_msk1;
3078 if (word0(&rv) == Big0 && word1(&rv) == Big1)
3092 if (bc.dsign || word1(&rv) || word0(&rv) & Bndry_mask
3095 || (word0(&rv) & Exp_mask) <= (2*P+1)*Exp_msk1
3097 || (word0(&rv) & Exp_mask) <= Exp_msk1
3122 if ((word0(&rv) & Bndry_mask1) == Bndry_mask1
3125 (bc.scale && (y = word0(&rv) & Exp_mask) <= 2*P*Exp_msk1)
3130 word0(&rv) = (word0(&rv) & Exp_mask)
3143 else if (!(word0(&rv) & Bndry_mask) && !word1(&rv)) {
3147 L = word0(&rv) & Exp_mask;
3168 L = word0(&rv) & Exp_mask;
3183 L = (word0(&rv) & Exp_mask) - Exp_msk1;
3185 word0(&rv) = L | Bndry_mask1;
3221 else if (word1(&rv) || word0(&rv) & Bndry_mask) {
3223 if (word1(&rv) == Tiny1 && !word0(&rv)) {
3262 y = word0(&rv) & Exp_mask;
3268 word0(&rv) -= P*Exp_msk1;
3271 if ((word0(&rv) & Exp_mask) >=
3273 if (word0(&rv0) == Big0 && word1(&rv0) == Big1)
3275 word0(&rv) = Big0;
3280 word0(&rv) += P*Exp_msk1;
3292 word0
3299 if ((word0(&rv) & Exp_mask) <= P*Exp_msk1) {
3301 word0(&rv) += P*Exp_msk1;
3305 if ((word0(&rv) & Exp_mask) < P*Exp_msk1)
3307 if ((word0(&rv) & Exp_mask) <= P*Exp_msk1)
3310 if (word0(&rv0) == Tiny0
3318 word0(&rv) = Tiny0;
3323 word0(&rv) -= P*Exp_msk1;
3347 z = word0(&rv) & Exp_mask;
3358 if (bc.dsign || word1(&rv) || word0(&rv) & Bndry_mask) {
3385 word0(&rv0) = Exp_1 + (70 << Exp_shift);
3395 word0(&rv0) = Exp_1 - 2*P*Exp_msk1;
3401 if (!(word0(&rv) & Exp_mask))
3403 if (word0(&rv) == 0 && word1(&rv) == 0)
3410 if (bc.inexact && !(word0(&rv) & Exp_mask)) {
3601 if (word0(&u) & Sign_bit) {
3604 word0(&u) &= ~Sign_bit; /* clear sign bit */
3611 if ((word0(&u) & Exp_mask) == Exp_mask)
3613 if (word0(&u) == 0x8000)
3619 if (!word1(&u) && !(word0(&u) & 0xfffff))
3649 i = (int)(word0(&u) >> Exp_shift1 & (Exp_mask>>Exp_shift1));
3651 if ((i = (int)(word0(&u) >> Exp_shift1 & (Exp_mask>>Exp_shift1)))) {
3654 word0(&d2) &= Frac_mask1;
3655 word0(&d2) |= Exp_11;
3657 if (j = 11 - hi0bits(word0(&d2) & Frac_mask))
3695 x = i > 32 ? word0(&u) << (64 - i) | word1(&u) >> (i - 32)
3698 word0(&d2) -= 31*Exp_msk1; /* adjust exponent */
3823 word0(&eps) -= (P-1)*Exp_msk1;
3985 if (!word1(&u) && !(word0(&u) & Bndry_mask)
3987 && word0(&u) & (Exp_mask & ~Exp_msk1)
4193 word0(&u) = Exp_1 + (70 << Exp_shift);
