229 #	define word0(x) (((union doubleasulongs *)&x)->w)[1]  macro
232 #	define word0(x) (((union doubleasulongs *)&x)->w)[0]  macro
280 #define Infinite(x) (word0(x) == 0x7ff00000) /* sufficient test for here */
850 	L = (word0(x) & Exp_mask) - (P-1)*Exp_msk1;  in ulp()
857 		word0(a) = L;  in ulp()
863 			word0(a) = 0x80000 >> L;  in ulp()
866 			word0(a) = 0;  in ulp()
885 #define d0 word0(d)  in b2d()
931 	word0(d) = d0 >> 16 | d0 << 16;  in b2d()
949 	d0 = word0(d) >> 16 | word0(d) << 16;  in d2b()
952 #define d0 word0(d)  in d2b()
1040 		*bits = 4*P + 8 - k - hi0bits(word0(d) & Frac_mask);  in d2b()
1076 		word0(da) += (k >> 2)*Exp_msk1;  in ratio()
1081 		word0(db) += (k >> 2)*Exp_msk1;  in ratio()
1087 		word0(da) += k*Exp_msk1;  in ratio()
1090 		word0(db) += k*Exp_msk1;  in ratio()
1283 				word0(rv) -= P*Exp_msk1;  in strtod()
1285 				if ((word0(rv) & Exp_mask)  in strtod()
1288 				word0(rv) += P*Exp_msk1;  in strtod()
1321 				word0(rv) -= P*Exp_msk1;  in strtod()
1323 				if ((z = word0(rv) & Exp_mask)  in strtod()
1329 					word0(rv) = Big0;  in strtod()
1333 					word0(rv) += P*Exp_msk1;  in strtod()
1357 				word0(rv) = Tiny0;  in strtod()
1435 			if (dsign || word1(rv) || word0(rv) & Bndry_mask)  in strtod()
1445 				if ((word0(rv) & Bndry_mask1) == Bndry_mask1  in strtod()
1448 					word0(rv) = (word0(rv) & Exp_mask)  in strtod()
1457 			} else if (!(word0(rv) & Bndry_mask) && !word1(rv)) {  in strtod()
1461 				L = word0(rv) & Exp_mask;  in strtod()
1470 				L = (word0(rv) & Exp_mask) - Exp_msk1;  in strtod()
1472 				word0(rv) = L | Bndry_mask1;  in strtod()
1500 			else if (word1(rv) || word0(rv) & Bndry_mask) {  in strtod()
1502 				if (word1(rv) == Tiny1 && !word0(rv))  in strtod()
1534 		y = word0(rv) & Exp_mask;  in strtod()
1540 			word0(rv) -= P*Exp_msk1;  in strtod()
1543 			if ((word0(rv) & Exp_mask) >=  in strtod()
1545 				if (word0(rv0) == Big0 && word1(rv0) == Big1)  in strtod()
1547 				word0(rv) = Big0;  in strtod()
1551 				word0(rv) += P*Exp_msk1;  in strtod()
1554 			if ((word0(rv) & Exp_mask) <= P*Exp_msk1) {  in strtod()
1556 				word0(rv) += P*Exp_msk1;  in strtod()
1560 				if ((word0(rv) & Exp_mask) <  P*Exp_msk1)  in strtod()
1562 				if ((word0(rv) & Exp_mask) <= P*Exp_msk1)  in strtod()
1565 					if (word0(rv0) == Tiny0  in strtod()
1568 					word0(rv) = Tiny0;  in strtod()
1572 					word0(rv) -= P*Exp_msk1;  in strtod()
1594 		z = word0(rv) & Exp_mask;  in strtod()
1600 			if (dsign || word1(rv) || word0(rv) & Bndry_mask) {  in strtod()
1841 	if (word0(d) & Sign_bit) {
1844 		word0(d) &= ~Sign_bit;	/* clear sign bit */
1851 	if ((word0(d) & Exp_mask) == Exp_mask)
1853 	if (word0(d)  == 0x8000)
1860 			!word1(d) && !(word0(d) & 0xfffff) ? "Infinity" :
1885 	i = (int)(word0(d) >> Exp_shift1 & (Exp_mask>>Exp_shift1));
1887 	if ( (i = (int)((word0(d) >> Exp_shift1) & (Exp_mask>>Exp_shift1))) ) {
1890 		word0(d2) &= Frac_mask1;
1891 		word0(d2) |= Exp_11;
1893 		if ( (j = 11 - hi0bits(word0(d2) & Frac_mask)) )
1930 		x = i > 32  ? ((word0(d) << (64 - i)) | (word1(d) >> (i - 32)))
1933 		word0(d2) -= 31*Exp_msk1; /* adjust exponent */
2042 		word0(eps) -= (P-1)*Exp_msk1;
2200 		if (!word1(d) && !(word0(d) & Bndry_mask)
2202 		 && word0(d) & Exp_mask