1317 	ULong d0, d1;  local
1319 #define d0 word0(d)  macro
1336 		d0 = Exp_1 | y >> (Ebits - k);
1343 		d0 = Exp_1 | y << k | z >> (32 - k);
1348 		d0 = Exp_1 | y;
1354 		d0 = Exp_1 | y << k - Ebits | z >> Ebits + 16 - k;
1363 	d0 = Exp_1 | y << k + 16 | z << k | w >> 16 - k;
1369 	word0(d) = d0 >> 16 | d0 << 16;
1372 #undef d0
1391 	ULong d0, d1;  local
1396 	d0 = word0(d) >> 16 | word0(d) << 16;
1399 #define d0 word0(d)  macro
1412 	z = d0 & Frac_mask;
1413 	d0 &= 0x7fffffff;	/* clear sign bit, which we ignore */
1415 	de = (int)(d0 >> Exp_shift);
1420 	if ((de = (int)(d0 >> Exp_shift)) != 0)
1511 #undef d0