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

fixed for very large numbers

Browse source
This commit is contained in:
ceriel 1987-10-22 15:26:36 +00:00
parent cf330f732c
commit 7df117128c
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lang/cem/libcc/stdio/fltpr.c
View file

@ -20,7 +20,8 @@ _pfloat(r,s,n,b)
if (dp<=0)
*s++ = '0';
for (i=dp; i>0; i--)
*s++ = *s1++;
if (*s1) *s++ = *s1++;
else *s++ = '0';
if ((i=n) > 0)
*s++ = '.';
while (++dp <= 0) {
@ -29,7 +30,8 @@ _pfloat(r,s,n,b)
*s++ = '0';
}
while (--i >= 0)
*s++ = *s1++;
if (*s1) *s++ = *s1++;
else *s++ = '0';
return(s);
}
@ -46,7 +48,8 @@ char *_pscien(r,s,n,b) float r; register char *s; {
*s++ = *s1++;
*s++ = '.';
while (--n>0)
*s++ = *s1++;
if (*s1) *s++ = *s1++;
else *s++ = '0';
*s++ = 'e';
if ( r ) --dp ;
if ( dp<0 ) {