godzil/tack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

bug fix

Browse Source
This commit is contained in:
ceriel 1987-02-06 14:50:57 +00:00
parent 7135529c97
commit abb48b7aa8
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
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 {
fractpart = value;
while ((value = value*10) < 1) {
fractpart = value;
pointpos--;
}
pb = &buf[0]; pb = &buf[0];
if (value > 0) {
fractpart = value;
while ((value = value*10) < 1) {
fractpart = value;
pointpos--;
}
}
} }
pe = &buf[ndigit]; pe = &buf[ndigit];
if (! ecvtflag) { if (! ecvtflag) {