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

problem fixed: number of digits displayed and/or format was sometimes wrong

Browse source
This commit is contained in:
ceriel 1988-08-04 11:17:27 +00:00
parent b26e580a74
commit 1726d23a44
1 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lang/cem/libcc/gen/gcvt.c
View file

@ -8,22 +8,23 @@ char *
gcvt(value, ndigit, buf)
double value;
char *buf;
register int ndigit;
int ndigit;
{
int sign, dp;
register char *s1, *s2;
register int i;
register int nndigit = ndigit;
s1 = ecvt(value, ndigit, &dp, &sign);
s2 = buf;
if (sign) *s2++ = '-';
for (i = ndigit - 1; i > 0 && s1[i] == '0'; i--) ndigit--;
if (dp - ndigit > NDIGINEXP(dp) + 2 || dp < -NDIGINEXP(dp) - 1) {
for (i = nndigit - 1; i > 0 && s1[i] == '0'; i--) nndigit--;
if (dp > ndigit || dp < -(NDIGINEXP(dp)+1)) {
/* Use E format, otherwise we need too many '0''s */
dp--;
*s2++ = *s1++;
*s2++ = '.';
while (--ndigit > 0) *s2++ = *s1++;
while (--nndigit > 0) *s2++ = *s1++;
*s2++ = 'e';
if (dp < 0) {
*s2++ = '-';
@ -48,7 +49,7 @@ gcvt(value, ndigit, buf)
*s2++ = '0';
}
}
for (i = 1; i <= ndigit; i++) {
for (i = 1; i <= nndigit; i++) {
*s2++ = *s1++;
if (i == dp) *s2++ = '.';
}