| # | Line 103 | Line 103 | FILE *fp; | |
|---|---|---|
| 103 | double d; | |
| 104 | ||
| 105 | l = getint(4, fp); | |
| 106 | + | if (l == 0) { |
| 107 | + | getc(fp); /* exactly zero -- ignore exponent */ |
| 108 | + | return(0.0); |
| 109 | + | } |
| 110 | d = (l + (l > 0 ? .5 : -.5)) * (1./0x7fffffff); | |
| 111 | return(ldexp(d, (int)getint(1, fp))); | |
| 112 | } | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |