diff options
| author | jb <jb@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-03-15 21:56:13 +0000 |
|---|---|---|
| committer | jb <jb@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-03-15 21:56:13 +0000 |
| commit | 62e8b54a7360d85f598c141df26ce7161b951b2d (patch) | |
| tree | 1400f01cee639a0d28295b3b650d04496f5dd612 /libgfortran | |
| parent | b4f6d117da53188bb7f540d3d8933662b580227c (diff) | |
| download | gcc-62e8b54a7360d85f598c141df26ce7161b951b2d.tar.gz | |
Remove commented out debug printf:s
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@185444 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran')
| -rw-r--r-- | libgfortran/io/write_float.def | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/libgfortran/io/write_float.def b/libgfortran/io/write_float.def index 7882c903d7e..07437f0a3e1 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. */ |