Lines Matching refs:word0
187 #define word0(x) (x)->L[1]
190 #define word0(x) (x)->L[0]
939 L = (word0(x) & Exp_mask) - (P-1)*Exp_msk1;
940 word0(&u) = L;
963 word0(&d) = Exp_1 | y >> (Ebits - k);
970 word0(&d) = Exp_1 | y << k | z >> (32 - k);
975 word0(&d) = Exp_1 | y;
1015 b->x[1] = word0(d) & Frac_mask;
1016 *e = Etiny - 1 + (int)((word0(d) & Exp_mask) >> Exp_shift);
1074 z = word0(d) & Frac_mask;
1075 word0(d) &= 0x7fffffff; /* clear sign bit, which we ignore */
1076 if ((de = (int)(word0(d) >> Exp_shift)))
1119 word0(&da) += k*Exp_msk1;
1122 word0(&db) += k*Exp_msk1;
1240 if (bc->scale && 2*P + 1 > (int)((word0(x) & Exp_mask) >> Exp_shift)) {
1242 word0(&u) = (P+2)*Exp_msk1;
1247 assert(word0(x) || word1(x)); /* x != 0.0 */
1419 word0(&rv) = NAN_WORD0;
1422 word0(&rv) |= Sign_bit;
1433 word0(&rv) = POSINF_WORD0;
1686 word0(&rv) -= P*Exp_msk1;
1688 if ((z = word0(&rv) & Exp_mask)
1694 word0(&rv) = Big0;
1698 word0(&rv) += P*Exp_msk1;
1723 if (bc.scale && (j = 2*P + 1 - ((word0(&rv) & Exp_mask)
1729 word0(&rv) = (P+2)*Exp_msk1;
1731 word0(&rv) &= 0xffffffff << (j-32);
1936 if (!word1(&rv) && !(word0(&rv) & Bndry_mask)) {
1939 j = (int)(word0(&rv) & Exp_mask) >> Exp_shift;
1958 if (dsign || word1(&rv) || word0(&rv) & Bndry_mask
1959 || (word0(&rv) & Exp_mask) <= (2*P+1)*Exp_msk1
1978 if ((word0(&rv) & Bndry_mask1) == Bndry_mask1
1981 (y = word0(&rv) & Exp_mask) <= 2*P*Exp_msk1) ?
1985 word0(&rv) = (word0(&rv) & Exp_mask)
1993 else if (!(word0(&rv) & Bndry_mask) && !word1(&rv)) {
1997 L = word0(&rv) & Exp_mask;
2009 L = (word0(&rv) & Exp_mask) - Exp_msk1;
2010 word0(&rv) = L | Bndry_mask1;
2032 else if (word1(&rv) || word0(&rv) & Bndry_mask) {
2033 if (word1(&rv) == Tiny1 && !word0(&rv)) {
2058 y = word0(&rv) & Exp_mask;
2064 word0(&rv) -= P*Exp_msk1;
2067 if ((word0(&rv) & Exp_mask) >=
2069 if (word0(&rv0) == Big0 && word1(&rv0) == Big1) {
2072 word0(&rv) = Big0;
2077 word0(&rv) += P*Exp_msk1;
2088 word0(&aadj2) += (2*P+1)*Exp_msk1 - y;
2094 z = word0(&rv) & Exp_mask;
2102 if (dsign || word1(&rv) || word0(&rv) & Bndry_mask) {
2123 word0(&rv0) = Exp_1 - 2*P*Exp_msk1;
2148 word0(&rv) = Exp_mask;
2302 if (word0(&u) & Sign_bit) {
2305 word0(&u) &= ~Sign_bit; /* clear sign bit */
2311 if ((word0(&u) & Exp_mask) == Exp_mask)
2315 if (!word1(&u) && !(word0(&u) & 0xfffff))
2329 if ((i = (int)(word0(&u) >> Exp_shift1 & (Exp_mask>>Exp_shift1)))) {
2331 word0(&d2) &= Frac_mask1;
2332 word0(&d2) |= Exp_11;
2363 x = i > 32 ? word0(&u) << (64 - i) | word1(&u) >> (i - 32)
2366 word0(&d2) -= 31*Exp_msk1; /* adjust exponent */
2484 word0(&eps) -= (P-1)*Exp_msk1;
2640 if (!word1(&u) && !(word0(&u) & Bndry_mask)
2641 && word0(&u) & (Exp_mask & ~Exp_msk1)