Lines Matching defs:Exp_msk1
245 #define Exp_msk1 0x100000
275 #define Exp_msk1 0x1000000
299 #define Exp_msk1 0x80
340 #define Big0 (Frac_mask1 | Exp_msk1*(DBL_MAX_EXP+Bias-1))
1025 L = (word0(x) & Exp_mask) - (P-1)*Exp_msk1;
1030 L |= Exp_msk1 >> 4;
1168 z |= Exp_msk1;
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;
1546 word0(rv) -= P*Exp_msk1;
1550 > Exp_msk1*(DBL_MAX_EXP+Bias-1-P))
1552 word0(rv) += P*Exp_msk1;
1590 word0(rv) -= P*Exp_msk1;
1593 > Exp_msk1*(DBL_MAX_EXP+Bias-P))
1595 if (z > Exp_msk1*(DBL_MAX_EXP+Bias-1-P)) {
1602 word0(rv) += P*Exp_msk1;
1725 + Exp_msk1
1727 | Exp_msk1 >> 4
1740 if (L < Exp_msk1)
1742 if (L <= Exp_msk1)
1745 L -= Exp_msk1;
1747 L = (word0(rv) & Exp_mask) - Exp_msk1;
1817 if (y == Exp_msk1*(DBL_MAX_EXP+Bias-1)) {
1819 word0(rv) -= P*Exp_msk1;
1823 Exp_msk1*(DBL_MAX_EXP+Bias-P)) {
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)
1854 word0(rv) -= P*Exp_msk1;
1864 * y <= (P-1)*Exp_msk1), we must adjust aadj to avoid
1868 if (y <= (P-1)*Exp_msk1 && aadj >= 1.) {
2234 word0(d2) -= 31*Exp_msk1; /* adjust exponent */
2360 word0(eps) -= (P-1)*Exp_msk1;