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