word0 1595 util.c L = (word0(x) & Exp_mask) - (P-1)*Exp_msk1; word0 1604 util.c word0(a) = L; word0 1612 util.c word0(a) = 0x80000 >> L; word0 1616 util.c word0(a) = 0; word0 1635 util.c #define d0 word0(d) word0 1682 util.c word0(d) = d0 >> 16 | d0 << 16; word0 1706 util.c d0 = word0(d) >> 16 | word0(d) << 16; word0 1709 util.c #define d0 word0(d) word0 1807 util.c *bits = 4*P + 8 - k - hi0bits(word0(d) & Frac_mask); word0 1843 util.c word0(da) += (k >> 2)*Exp_msk1; word0 1849 util.c word0(db) += (k >> 2)*Exp_msk1; word0 1855 util.c word0(da) += k*Exp_msk1; word0 1858 util.c word0(db) += k*Exp_msk1; word0 1974 util.c word0(*rvp) = Exp_mask | x[0]; word0 2213 util.c word0(rv) = 0x7ff00000; word0 2221 util.c word0(rv) = NAN_WORD0; word0 2300 util.c word0(rv) -= P*Exp_msk1; word0 2302 util.c if ((word0(rv) & Exp_mask) word0 2305 util.c word0(rv) += P*Exp_msk1; word0 2365 util.c word0(rv) = Big0; word0 2369 util.c word0(rv) = Exp_mask; word0 2373 util.c word0(rv) = Exp_mask; word0 2382 util.c word0(rv) = Big0; word0 2394 util.c word0(rv) -= P*Exp_msk1; word0 2396 util.c if ((z = word0(rv) & Exp_mask) word0 2402 util.c word0(rv) = Big0; word0 2406 util.c word0(rv) += P*Exp_msk1; word0 2422 util.c if (scale && (j = 2*P + 1 - ((word0(rv) & Exp_mask) word0 2428 util.c word0(rv) = (P+2)*Exp_msk1; word0 2430 util.c word0(rv) &= 0xffffffff << (j-32); word0 2457 util.c word0(rv) = Tiny0; word0 2570 util.c && !(word0(rv) & Frac_mask)) { word0 2571 util.c y = word0(rv) & Exp_mask; word0 2585 util.c if (scale && (y = word0(rv) & Exp_mask) word0 2587 util.c word0(adj) += (2*P+1)*Exp_msk1 - y; word0 2590 util.c if ((word0(rv) & Exp_mask) <= word0 2592 util.c word0(rv) += P*Exp_msk1; word0 2594 util.c word0(rv) -= P*Exp_msk1; word0 2616 util.c if (scale && (y = word0(rv) & Exp_mask) <= 2*P*Exp_msk1) word0 2617 util.c word0(adj) += (2*P+1)*Exp_msk1 - y; word0 2620 util.c if ((word0(rv) & Exp_mask) <= P*Exp_msk1) { word0 2621 util.c word0(rv) += P*Exp_msk1; word0 2627 util.c word0(rv) -= P*Exp_msk1; word0 2645 util.c if (dsign || word1(rv) || word0(rv) & Bndry_mask word0 2648 util.c || (word0(rv) & Exp_mask) <= (2*P+1)*Exp_msk1 word0 2650 util.c || (word0(rv) & Exp_mask) <= Exp_msk1 word0 2675 util.c if ((word0(rv) & Bndry_mask1) == Bndry_mask1 word0 2678 util.c (scale && (y = word0(rv) & Exp_mask) <= 2*P*Exp_msk1) word0 2683 util.c word0(rv) = (word0(rv) & Exp_mask) word0 2696 util.c else if (!(word0(rv) & Bndry_mask) && !word1(rv)) { word0 2700 util.c L = word0(rv) & Exp_mask; word0 2715 util.c L = word0(rv) & Exp_mask; word0 2726 util.c L = (word0(rv) & Exp_mask) - Exp_msk1; word0 2728 util.c word0(rv) = L | Bndry_mask1; word0 2759 util.c else if (word1(rv) || word0(rv) & Bndry_mask) { word0 2761 util.c if (word1(rv) == Tiny1 && !word0(rv)) word0 2795 util.c y = word0(rv) & Exp_mask; word0 2801 util.c word0(rv) -= P*Exp_msk1; word0 2804 util.c if ((word0(rv) & Exp_mask) >= word0 2806 util.c if (word0(rv0) == Big0 && word1(rv0) == Big1) word0 2808 util.c word0(rv) = Big0; word0 2813 util.c word0(rv) += P*Exp_msk1; word0 2824 util.c word0(aadj1) += (2*P+1)*Exp_msk1 - y; word0 2830 util.c if ((word0(rv) & Exp_mask) <= P*Exp_msk1) { word0 2832 util.c word0(rv) += P*Exp_msk1; word0 2836 util.c if ((word0(rv) & Exp_mask) < P*Exp_msk1) word0 2838 util.c if ((word0(rv) & Exp_mask) <= P*Exp_msk1) word0 2841 util.c if (word0(rv0) == Tiny0 && word1(rv0) == Tiny1) word0 2843 util.c word0(rv) = Tiny0; word0 2848 util.c word0(rv) -= P*Exp_msk1; word0 2872 util.c z = word0(rv) & Exp_mask; word0 2882 util.c if (dsign || word1(rv) || word0(rv) & Bndry_mask) { word0 2899 util.c word0(rv0) = Exp_1 + (70 << Exp_shift); word0 2909 util.c word0(rv0) = Exp_1 - 2*P*Exp_msk1; word0 2914 util.c if (word0(rv) == 0 && word1(rv) == 0) word0 2920 util.c if (inexact && !(word0(rv) & Exp_mask)) { word0 3194 util.c if (word0(d) & Sign_bit) { word0 3197 util.c word0(d) &= ~Sign_bit; /* clear sign bit */ word0 3204 util.c if ((word0(d) & Exp_mask) == Exp_mask) word0 3206 util.c if (word0(d) == 0x8000) word0 3212 util.c if (!word1(d) && !(word0(d) & 0xfffff)) word0 3242 util.c i = (int)(word0(d) >> Exp_shift1 & (Exp_mask>>Exp_shift1)); word0 3244 util.c if ((i = (int)(word0(d) >> Exp_shift1 & (Exp_mask>>Exp_shift1))) != 0) { word0 3247 util.c word0(d2) &= Frac_mask1; word0 3248 util.c word0(d2) |= Exp_11; word0 3250 util.c if (j = 11 - hi0bits(word0(d2) & Frac_mask)) word0 3288 util.c x = i > 32 ? word0(d) << (64 - i) | word1(d) >> (i - 32) word0 3291 util.c word0(d2) -= 31*Exp_msk1; /* adjust exponent */ word0 3415 util.c word0(eps) -= (P-1)*Exp_msk1; word0 3576 util.c if (!word1(d) && !(word0(d) & Bndry_mask) word0 3578 util.c && word0(d) & (Exp_mask & ~Exp_msk1) word0 3786 util.c word0(d) = Exp_1 + (70 << Exp_shift); word0 3849 util.c #define dexp_get(u) ((int)(word0(u) >> Exp_shift) & ~Exp_msk1) word0 3850 util.c #define dexp_set(u,v) (word0(u) = (((int)(word0(u)) & ~Exp_mask) | ((v) << Exp_shift))) word0 3851 util.c #define dmanh_get(u) ((uint32_t)(word0(u) & Frac_mask)) word0 3889 util.c if (word0(u) & Sign_bit) { word0 3892 util.c word0(u) &= ~Sign_bit; /* clear sign bit */