Skip to content

R
riscv-gcc-1
Commit 192b716b by Janne Blomqvist
Options

Remove commented out debug printf:s 

From-SVN: r185444
parent 92caa91a
Showing with 0 additions and 5 deletions
libgfortran/io/write_float.def
......@@ -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. */
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment