Lines Matching defs:word0
191 #define word0(x) (x)->L[1]
194 #define word0(x) (x)->L[0]
1008 L = (word0(x) & Exp_mask) - (P-1)*Exp_msk1;
1009 word0(&u) = L;
1032 word0(&d) = Exp_1 | y >> (Ebits - k);
1039 word0(&d) = Exp_1 | y << k | z >> (32 - k);
1044 word0(&d) = Exp_1 | y;
1084 b->x[1] = word0(d) & Frac_mask;
1085 *e = Etiny - 1 + (int)((word0(d) & Exp_mask) >> Exp_shift);
1143 z = word0(d) & Frac_mask;
1144 word0(d) &= 0x7fffffff; /* clear sign bit, which we ignore */
1145 if ((de = (int)(word0(d) >> Exp_shift)))
1188 word0(&da) += k*Exp_msk1;
1191 word0(&db) += k*Exp_msk1;
1338 if (bc->scale && 2*P + 1 > (int)((word0(x) & Exp_mask) >> Exp_shift)) {
1340 word0(&u) = (P+2)*Exp_msk1;
1345 assert(word0(x) || word1(x)); /* x != 0.0 */
1754 word0(&rv) -= P*Exp_msk1;
1756 if ((z = word0(&rv) & Exp_mask)
1762 word0(&rv) = Big0;
1766 word0(&rv) += P*Exp_msk1;
1791 if (bc.scale && (j = 2*P + 1 - ((word0(&rv) & Exp_mask)
1797 word0(&rv) = (P+2)*Exp_msk1;
1799 word0(&rv) &= 0xffffffff << (j-32);
2032 if (!word1(&rv) && !(word0(&rv) & Bndry_mask)) {
2035 j = (int)(word0(&rv) & Exp_mask) >> Exp_shift;
2054 if (dsign || word1(&rv) || word0(&rv) & Bndry_mask
2055 || (word0(&rv) & Exp_mask) <= (2*P+1)*Exp_msk1
2078 if ((word0(&rv) & Bndry_mask1) == Bndry_mask1
2081 (y = word0(&rv) & Exp_mask) <= 2*P*Exp_msk1) ?
2085 word0(&rv) = (word0(&rv) & Exp_mask)
2093 else if (!(word0(&rv) & Bndry_mask) && !word1(&rv)) {
2097 L = word0(&rv) & Exp_mask;
2109 L = (word0(&rv) & Exp_mask) - Exp_msk1;
2110 word0(&rv) = L | Bndry_mask1;
2132 else if (word1(&rv) || word0(&rv) & Bndry_mask) {
2133 if (word1(&rv) == Tiny1 && !word0(&rv)) {
2158 y = word0(&rv) & Exp_mask;
2164 word0(&rv) -= P*Exp_msk1;
2167 if ((word0(&rv) & Exp_mask) >=
2169 if (word0(&rv0) == Big0 && word1(&rv0) == Big1) {
2177 word0(&rv) = Big0;
2182 word0(&rv) += P*Exp_msk1;
2193 word0(&aadj2) += (2*P+1)*Exp_msk1 - y;
2199 z = word0(&rv) & Exp_mask;
2207 if (dsign || word1(&rv) || word0(&rv) & Bndry_mask) {
2233 word0(&rv0) = Exp_1 - 2*P*Exp_msk1;
2254 word0(&rv) = Exp_mask;
2399 if (word0(&u) & Sign_bit) {
2402 word0(&u) &= ~Sign_bit; /* clear sign bit */
2408 if ((word0(&u) & Exp_mask) == Exp_mask)
2412 if (!word1(&u) && !(word0(&u) & 0xfffff))
2426 if ((i = (int)(word0(&u) >> Exp_shift1 & (Exp_mask>>Exp_shift1)))) {
2428 word0(&d2) &= Frac_mask1;
2429 word0(&d2) |= Exp_11;
2460 x = i > 32 ? word0(&u) << (64 - i) | word1(&u) >> (i - 32)
2463 word0(&d2) -= 31*Exp_msk1; /* adjust exponent */
2581 word0(&eps) -= (P-1)*Exp_msk1;
2729 if (!word1(&u) && !(word0(&u) & Bndry_mask)
2730 && word0(&u) & (Exp_mask & ~Exp_msk1)
