d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

bug fix

Browse source
This commit is contained in:
ceriel 1987-02-06 14:50:57 +00:00
parent 77f33b6762
commit 254364ca11
1 changed files with 8 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lang/cem/libcc/gen/ecvt.c
View file

@ -61,13 +61,15 @@ cvt(value, ndigit, decpt, sign, ecvtflag)
pb = buf; pb = buf;
while (pe > buf1) *pb++ = *--pe; while (pe > buf1) *pb++ = *--pe;
} }
else if (value > 0) { else {
pb = &buf[0];
if (value > 0) {
fractpart = value; fractpart = value;
while ((value = value*10) < 1) { while ((value = value*10) < 1) {
fractpart = value; fractpart = value;
pointpos--; pointpos--;
} }
pb = &buf[0]; }
} }
pe = &buf[ndigit]; pe = &buf[ndigit];
if (! ecvtflag) { if (! ecvtflag) {