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