gonzui

t2ex

bsd_source/lib/libc/src_bsd/stdlib/gdtoa.c - 31.0KB - 829 lines

207:         i = be + bbits - 1;
208:         word0(&d) &= Frac_mask1;
209:         word0(&d) |= Exp_11;
210: #ifdef IBM
211:         if ( (j = 11 - hi0bits(word0(&d) & Frac_mask)) !=0)
212:                 dval(&d) /= 1 << j;
255:                 dval(&d) *= 1 << j1;
256:         word0(&d) += j << Exp_shift - 2 & Exp_mask;
257: #else
258:         word0(&d) += (be + bbits - 1) << Exp_shift;
259: #endif
343: #ifdef IBM
344:                 if ( (j = 11 - hi0bits(word0(&d) & Frac_mask)) !=0)
345:                         dval(&d) /= 1 << j;
384:                 dval(&eps) = ieps*dval(&d) + 7.;
385:                 word0(&eps) -= (P-1)*Exp_msk1;
386:                 if (ilim == 0) {