# | 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 |