diff options
| author | Andreas Jaeger <aj@suse.de> | 2005-05-17 18:54:58 +0200 |
|---|---|---|
| committer | Andreas Jaeger <aj@gcc.gnu.org> | 2005-05-17 18:54:58 +0200 |
| commit | 8f2a14065c60b1ac45c9019de43b73664bc7657d (patch) | |
| tree | 26c34185de2f602483130274e16f43b5f87afc2c /libgfortran/io/write.c | |
| parent | 2ba99e3da1e9ffbe2e764ad3686fab8d4bdbaeec (diff) | |
| download | gcc-8f2a14065c60b1ac45c9019de43b73664bc7657d.zip gcc-8f2a14065c60b1ac45c9019de43b73664bc7657d.tar.gz gcc-8f2a14065c60b1ac45c9019de43b73664bc7657d.tar.bz2 | |
configure.ac: Add additional warning flags.
* configure.ac: Add additional warning flags.
* configure: Regenerate.
* io/write.c (calculate_G_format): Remove unused parameter.
(output_float): Remove unused parameter.
(write_float): Change callers.
(nml_write_obj): Avoid signed warning.
Make variable const to support -Wwrite-strings.
* io/unix.c (fd_alloc, mmap_open, mmap_sfree, mem_sfree,
mem_truncate): Mark argument as unused.
* io/unit.c (get_unit): Mark argument as unused.
(init_units): Avoid warning about signed comparision.
* io/transfer.c (next_record_r): Remove unused parameter.
(next_record_w): Remove unused parameter.
(next_record): Change callers.
(iolength_transfer): Mark arguments as unused.
* io/open.c: Add initializer.
* io/list_read.c (read_character): Mark argument as unused.
(nml_match_name): Add const to make compile with -Wwrite-strings.
* io/format.c: Add initializer.
From-SVN: r99839
Diffstat (limited to 'libgfortran/io/write.c')
| -rw-r--r-- | libgfortran/io/write.c | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/libgfortran/io/write.c b/libgfortran/io/write.c index 494a7a9..36fee92 100644 --- a/libgfortran/io/write.c +++ b/libgfortran/io/write.c @@ -181,7 +181,7 @@ calculate_exp (int d) for Gw.dEe, n' ' means e+2 blanks */ static fnode * -calculate_G_format (fnode *f, double value, int len, int *num_blank) +calculate_G_format (fnode *f, double value, int *num_blank) { int e = f->u.real.e; int d = f->u.real.d; @@ -271,7 +271,7 @@ calculate_G_format (fnode *f, double value, int len, int *num_blank) /* Output a real number according to its format which is FMT_G free. */ static void -output_float (fnode *f, double value, int len) +output_float (fnode *f, double value) { /* This must be large enough to accurately hold any value. */ char buffer[32]; @@ -732,13 +732,13 @@ write_float (fnode *f, const char *source, int len) if (f->format != FMT_G) { - output_float (f, n, len); + output_float (f, n); } else { save_scale_factor = g.scale_factor; - f2 = calculate_G_format(f, n, len, &nb); - output_float (f2, n, len); + f2 = calculate_G_format(f, n, &nb); + output_float (f2, n); g.scale_factor = save_scale_factor; if (f2 != NULL) free_mem(f2); @@ -1325,7 +1325,7 @@ list_formatted_write (bt type, void *p, int len) /* Stores the delimiter to be used for character objects. */ -static char * nml_delim; +static const char * nml_delim; static namelist_info * nml_write_obj (namelist_info * obj, index_type offset, @@ -1359,13 +1359,13 @@ nml_write_obj (namelist_info * obj, index_type offset, if (base) { len =strlen (base->var_name); - for (dim_i = 0; dim_i < strlen (base_name); dim_i++) + for (dim_i = 0; dim_i < (index_type) strlen (base_name); dim_i++) { cup = toupper (base_name[dim_i]); write_character (&cup, 1); } } - for (dim_i =len; dim_i < strlen (obj->var_name); dim_i++) + for (dim_i =len; dim_i < (index_type) strlen (obj->var_name); dim_i++) { cup = toupper (obj->var_name[dim_i]); write_character (&cup, 1); |