word0 1673 util.c L = (word0(x) & Exp_mask) - (P-1)*Exp_msk1;
word0 1682 util.c word0(a) = L;
word0 1690 util.c word0(a) = 0x80000 >> L;
word0 1694 util.c word0(a) = 0;
word0 1713 util.c #define d0 word0(d)
word0 1760 util.c word0(d) = d0 >> 16 | d0 << 16;
word0 1780 util.c d0 = word0(d) >> 16 | word0(d) << 16;
word0 1783 util.c #define d0 word0(d)
word0 1881 util.c *bits = 4*P + 8 - k - hi0bits(word0(d) & Frac_mask);
word0 1917 util.c word0(da) += (k >> 2)*Exp_msk1;
word0 1923 util.c word0(db) += (k >> 2)*Exp_msk1;
word0 1929 util.c word0(da) += k*Exp_msk1;
word0 1932 util.c word0(db) += k*Exp_msk1;
word0 2048 util.c word0(*rvp) = Exp_mask | x[0];
word0 2218 util.c word0(rv) = 0x7ff00000;
word0 2226 util.c word0(rv) = NAN_WORD0;
word0 2305 util.c word0(rv) -= P*Exp_msk1;
word0 2307 util.c if ((word0(rv) & Exp_mask)
word0 2310 util.c word0(rv) += P*Exp_msk1;
word0 2370 util.c word0(rv) = Big0;
word0 2374 util.c word0(rv) = Exp_mask;
word0 2378 util.c word0(rv) = Exp_mask;
word0 2387 util.c word0(rv) = Big0;
word0 2399 util.c word0(rv) -= P*Exp_msk1;
word0 2401 util.c if ((z = word0(rv) & Exp_mask)
word0 2407 util.c word0(rv) = Big0;
word0 2411 util.c word0(rv) += P*Exp_msk1;
word0 2427 util.c if (scale && (j = 2*P + 1 - ((word0(rv) & Exp_mask)
word0 2433 util.c word0(rv) = (P+2)*Exp_msk1;
word0 2435 util.c word0(rv) &= 0xffffffff << (j-32);
word0 2462 util.c word0(rv) = Tiny0;
word0 2575 util.c && !(word0(rv) & Frac_mask)) {
word0 2576 util.c y = word0(rv) & Exp_mask;
word0 2590 util.c if (scale && (y = word0(rv) & Exp_mask)
word0 2592 util.c word0(adj) += (2*P+1)*Exp_msk1 - y;
word0 2595 util.c if ((word0(rv) & Exp_mask) <=
word0 2597 util.c word0(rv) += P*Exp_msk1;
word0 2599 util.c word0(rv) -= P*Exp_msk1;
word0 2621 util.c if (scale && (y = word0(rv) & Exp_mask) <= 2*P*Exp_msk1)
word0 2622 util.c word0(adj) += (2*P+1)*Exp_msk1 - y;
word0 2625 util.c if ((word0(rv) & Exp_mask) <= P*Exp_msk1) {
word0 2626 util.c word0(rv) += P*Exp_msk1;
word0 2632 util.c word0(rv) -= P*Exp_msk1;
word0 2650 util.c if (dsign || word1(rv) || word0(rv) & Bndry_mask
word0 2653 util.c || (word0(rv) & Exp_mask) <= (2*P+1)*Exp_msk1
word0 2655 util.c || (word0(rv) & Exp_mask) <= Exp_msk1
word0 2680 util.c if ((word0(rv) & Bndry_mask1) == Bndry_mask1
word0 2683 util.c (scale && (y = word0(rv) & Exp_mask) <= 2*P*Exp_msk1)
word0 2688 util.c word0(rv) = (word0(rv) & Exp_mask)
word0 2701 util.c else if (!(word0(rv) & Bndry_mask) && !word1(rv)) {
word0 2705 util.c L = word0(rv) & Exp_mask;
word0 2720 util.c L = word0(rv) & Exp_mask;
word0 2731 util.c L = (word0(rv) & Exp_mask) - Exp_msk1;
word0 2733 util.c word0(rv) = L | Bndry_mask1;
word0 2764 util.c else if (word1(rv) || word0(rv) & Bndry_mask) {
word0 2766 util.c if (word1(rv) == Tiny1 && !word0(rv))
word0 2800 util.c y = word0(rv) & Exp_mask;
word0 2806 util.c word0(rv) -= P*Exp_msk1;
word0 2809 util.c if ((word0(rv) & Exp_mask) >=
word0 2811 util.c if (word0(rv0) == Big0 && word1(rv0) == Big1)
word0 2813 util.c word0(rv) = Big0;
word0 2818 util.c word0(rv) += P*Exp_msk1;
word0 2829 util.c word0(aadj1) += (2*P+1)*Exp_msk1 - y;
word0 2835 util.c if ((word0(rv) & Exp_mask) <= P*Exp_msk1) {
word0 2837 util.c word0(rv) += P*Exp_msk1;
word0 2841 util.c if ((word0(rv) & Exp_mask) < P*Exp_msk1)
word0 2843 util.c if ((word0(rv) & Exp_mask) <= P*Exp_msk1)
word0 2846 util.c if (word0(rv0) == Tiny0 && word1(rv0) == Tiny1)
word0 2848 util.c word0(rv) = Tiny0;
word0 2853 util.c word0(rv) -= P*Exp_msk1;
word0 2877 util.c z = word0(rv) & Exp_mask;
word0 2887 util.c if (dsign || word1(rv) || word0(rv) & Bndry_mask) {
word0 2904 util.c word0(rv0) = Exp_1 + (70 << Exp_shift);
word0 2914 util.c word0(rv0) = Exp_1 - 2*P*Exp_msk1;
word0 2919 util.c if (word0(rv) == 0 && word1(rv) == 0)
word0 2925 util.c if (inexact && !(word0(rv) & Exp_mask)) {
word0 3201 util.c if (word0(d) & Sign_bit) {
word0 3204 util.c word0(d) &= ~Sign_bit; /* clear sign bit */
word0 3211 util.c if ((word0(d) & Exp_mask) == Exp_mask)
word0 3213 util.c if (word0(d) == 0x8000)
word0 3219 util.c if (!word1(d) && !(word0(d) & 0xfffff))
word0 3249 util.c i = (int)(word0(d) >> Exp_shift1 & (Exp_mask>>Exp_shift1));
word0 3251 util.c if ((i = (int)(word0(d) >> Exp_shift1 & (Exp_mask>>Exp_shift1))) != 0) {
word0 3254 util.c word0(d2) &= Frac_mask1;
word0 3255 util.c word0(d2) |= Exp_11;
word0 3257 util.c if (j = 11 - hi0bits(word0(d2) & Frac_mask))
word0 3295 util.c x = i > 32 ? word0(d) << (64 - i) | word1(d) >> (i - 32)
word0 3298 util.c word0(d2) -= 31*Exp_msk1; /* adjust exponent */
word0 3422 util.c word0(eps) -= (P-1)*Exp_msk1;
word0 3583 util.c if (!word1(d) && !(word0(d) & Bndry_mask)
word0 3585 util.c && word0(d) & (Exp_mask & ~Exp_msk1)
word0 3793 util.c word0(d) = Exp_1 + (70 << Exp_shift);