Lines Matching refs:word0

215 #define word0(x) ((x).ul[1])
218 #define word0(x) ((x).ul[0])
268 #define Infinite(x) (word0(x) == 0x7ff00000) /* sufficient test for here */
1025 L = (word0(x) & Exp_mask) - (P-1)*Exp_msk1;
1032 word0(a) = L;
1039 word0(a) = 0x80000 >> L;
1043 word0(a) = 0;
1066 #define d0 word0(d)
1116 word0(d) = d0 >> 16 | d0 << 16;
1143 d0 = word0(d) >> 16 | word0(d) << 16;
1146 #define d0 word0(d)
1240 *bits = 4*P + 8 - k - hi0bits(word0(d) & Frac_mask);
1284 word0(da) += (k >> 2)*Exp_msk1;
1290 word0(db) += (k >> 2)*Exp_msk1;
1296 word0(da) += k*Exp_msk1;
1299 word0(db) += k*Exp_msk1;
1394 word0(rv) = NAN_WORD0;
1546 word0(rv) -= P*Exp_msk1;
1549 if ((word0(rv) & Exp_mask)
1552 word0(rv) += P*Exp_msk1;
1590 word0(rv) -= P*Exp_msk1;
1592 if ((z = word0(rv) & Exp_mask)
1598 word0(rv) = Big0;
1602 word0(rv) += P*Exp_msk1;
1632 word0(rv) = Tiny0;
1711 if (dsign || word1(rv) || word0(rv) & Bndry_mask)
1721 if ((word0(rv) & Bndry_mask1) == Bndry_mask1
1724 word0(rv) = (word0(rv) & Exp_mask)
1734 else if (!(word0(rv) & Bndry_mask) && !word1(rv)) {
1738 L = word0(rv) & Exp_mask;
1747 L = (word0(rv) & Exp_mask) - Exp_msk1;
1749 word0(rv) = L | Bndry_mask1;
1777 else if (word1(rv) || word0(rv) & Bndry_mask) {
1779 if (word1(rv) == Tiny1 && !word0(rv))
1813 y = word0(rv) & Exp_mask;
1819 word0(rv) -= P*Exp_msk1;
1822 if ((word0(rv) & Exp_mask) >=
1824 if (word0(rv0) == Big0 && word1(rv0) == Big1)
1826 word0(rv) = Big0;
1831 word0(rv) += P*Exp_msk1;
1835 if ((word0(rv) & Exp_mask) <= P*Exp_msk1) {
1837 word0(rv) += P*Exp_msk1;
1841 if ((word0(rv) & Exp_mask) < P*Exp_msk1)
1843 if ((word0(rv) & Exp_mask) <= P*Exp_msk1)
1846 if (word0(rv0) == Tiny0
1849 word0(rv) = Tiny0;
1854 word0(rv) -= P*Exp_msk1;
1877 z = word0(rv) & Exp_mask;
1883 if (dsign || word1(rv) || word0(rv) & Bndry_mask) {
2132 if (word0(d) & Sign_bit) {
2135 word0(d) &= ~Sign_bit; /* clear sign bit */
2142 if ((word0(d) & Exp_mask) == Exp_mask)
2144 if (word0(d) == 0x8000)
2151 !word1(d) && !(word0(d) & 0xfffff) ? "Infinity" :
2185 i = (int)(word0(d) >> Exp_shift1 & (Exp_mask>>Exp_shift1));
2187 if ((i = (int)(word0(d) >> Exp_shift1 & (Exp_mask>>Exp_shift1))) != 0) {
2190 word0(d2) &= Frac_mask1;
2191 word0(d2) |= Exp_11;
2193 if (j = 11 - hi0bits(word0(d2) & Frac_mask))
2231 x = i > 32 ? word0(d) << (64 - i) | word1(d) >> (i - 32)
2234 word0(d2) -= 31*Exp_msk1; /* adjust exponent */
2360 word0(eps) -= (P-1)*Exp_msk1;
2521 if (!word1(d) && !(word0(d) & Bndry_mask)
2523 && word0(d) & Exp_mask