From 62e8b54a7360d85f598c141df26ce7161b951b2d Mon Sep 17 00:00:00 2001 From: jb Date: Thu, 15 Mar 2012 21:56:13 +0000 Subject: [PATCH] Remove commented out debug printf:s git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@185444 138bc75d-0d04-0410-961f-82ee72b054a4 --- libgfortran/io/write_float.def | 5 ----- 1 file changed, 5 deletions(-) diff --git a/libgfortran/io/write_float.def b/libgfortran/io/write_float.def index 7882c90..07437f0 100644 --- a/libgfortran/io/write_float.def +++ b/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. */ -- 2.7.4