DBL_EXP_BIAS
*eptr += u.dblu_dbl.dbl_exp - (DBL_EXP_BIAS - 1);
u.dblu_dbl.dbl_exp = DBL_EXP_BIAS - 1;
mul.dblu_dbl.dbl_exp = DBL_FRACBITS + DBL_EXP_BIAS;
if (expon <= -DBL_EXP_BIAS) {
mul.dblu_dbl.dbl_exp = expon + DBL_EXP_BIAS;
if (expon <= DBL_EXP_BIAS) {
mul.dblu_dbl.dbl_exp = expon + DBL_EXP_BIAS;
if ((int)u.dblu_dbl.dbl_exp - DBL_EXP_BIAS > DBL_FRACBITS - 1) {
if (u.dblu_dbl.dbl_exp < DBL_EXP_BIAS) {
frac >>= DBL_FRACBITS - (u.dblu_dbl.dbl_exp - DBL_EXP_BIAS);
frac <<= DBL_FRACBITS - (u.dblu_dbl.dbl_exp - DBL_EXP_BIAS);
dblu.dblu_dbl.dbl_exp - DBL_EXP_BIAS,
u.dblu_exp = DBL_EXP_BIAS + 31 - l;
signed int exp = ux.dblu_exp - DBL_EXP_BIAS;
signed int exp = ux.dblu_exp - DBL_EXP_BIAS;
ux.dblu_exp = DBL_EXP_BIAS + 63 - l;
ux.dblu_exp = DBL_EXP_BIAS + 63 - l;
u.dblu_dbl.dbl_exp = DBL_EXP_BIAS; /* so we get [1,2) */
FP_TOF(exp, DBL_EXP_BIAS, frac, f0, f1, f2, 0);
if ((exp = fp->fp_exp + DBL_EXP_BIAS) <= 0) {
FP_TOF(exp, DBL_EXP_BIAS, frac, f0, f1, f2, 0);
if ((exp = fp->fp_exp + DBL_EXP_BIAS) <= 0) {
FP_TOF(exp, DBL_EXP_BIAS, frac, f0, f1, f2, 0);
if ((exp = fp->fp_exp + DBL_EXP_BIAS) <= 0) {