SET_LDBL_EXPSIGN
SET_LDBL_EXPSIGN(twopkm2, BIAS + k - 2);
SET_LDBL_EXPSIGN(scale1, BIAS + half_expt);
SET_LDBL_EXPSIGN(scale2, BIAS + expt - half_expt);
SET_LDBL_EXPSIGN(twopk, BIAS + k + 10000);
SET_LDBL_EXPSIGN(twopk, BIAS + k);
SET_LDBL_EXPSIGN(x, 0x3fff);
SET_LDBL_EXPSIGN(x, 0x3fff);
SET_LDBL_EXPSIGN(twopminusk, 0x7ffe - (hx & 0x7fff));
SET_LDBL_EXPSIGN(twopkm2, BIAS + k - 2);
SET_LDBL_EXPSIGN(scale1, BIAS + half_expt);
SET_LDBL_EXPSIGN(scale2, BIAS + expt - half_expt);
SET_LDBL_EXPSIGN(twopk, BIAS + k);
SET_LDBL_EXPSIGN(twopk, BIAS + k + 10000);
SET_LDBL_EXPSIGN(x, 0x3fff);
SET_LDBL_EXPSIGN(x, 0x3fff);
SET_LDBL_EXPSIGN(twopminusk, 0x7ffe - (hx & 0x7fff));
SET_LDBL_EXPSIGN(scale, 0x7fff - ix);
SET_LDBL_EXPSIGN(x, ix);
#define SET_HIGH_WORD(v, i) SET_LDBL_EXPSIGN(v, i)