OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Remove commented out debug printf:s

Browse Source 
From-SVN: r185444
This commit is contained in:
Janne Blomqvist 2012-03-15 23:56:13 +02:00
parent 92caa91a0d
commit 192b716b10
1 changed files with 0 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
libgfortran/io/write_float.def
View File

@ -186,7 +186,6 @@ output_float (st_parameter_dt *dtp, const fnode *f, char *buffer, size_t size,
nbefore--;
ndigits--;
}
//printf("nbefore: %d, digits: %s\n", nbefore, digits);
if (p != 0)
{
if (p > 0)
@ -200,7 +199,6 @@ output_float (st_parameter_dt *dtp, const fnode *f, char *buffer, size_t size,
nafter = 0;
nafter = d;
nzero = nzero_real = 0;
//printf("digits: %s\n", digits);
}
else /* p < 0 */
{
@ -237,7 +235,6 @@ output_float (st_parameter_dt *dtp, const fnode *f, char *buffer, size_t size,
if (dtp->u.p.current_unit->round_status != ROUND_UNSPECIFIED
&& dtp->u.p.current_unit->round_status != ROUND_PROCDEFINED)
memmove (digits + nbefore, digits + nbefore + 1, ndigits - nbefore);
//printf("nbefore after p handling: %d, digits: %s\n", nbefore, digits);
break;
case FMT_E:
@ -344,7 +341,6 @@ output_float (st_parameter_dt *dtp, const fnode *f, char *buffer, size_t size,
/* Round compatible unless there is a tie. A tie is a 5 with
all trailing zero's. */
i = nafter + nbefore;
//printf("I = %d, digits = %s, nbefore = %d\n", i, digits, nbefore);
if (digits[i] == '5')
{
for(i++ ; i < ndigits; i++)
@ -404,7 +400,6 @@ output_float (st_parameter_dt *dtp, const fnode *f, char *buffer, size_t size,
else if (nbefore + nafter < ndigits)
{
i = ndigits = nbefore + nafter;
//printf("i: %d, digits: %s, nbefore: %d, nafter: %d\n", i, digits, nbefore, nafter);
if (digits[i] >= rchar)
{
/* Propagate the carry. */