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/transfer.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/transfer.c')
| -rw-r--r-- | libgfortran/io/transfer.c | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/libgfortran/io/transfer.c b/libgfortran/io/transfer.c index ce556ff..b51da52 100644 --- a/libgfortran/io/transfer.c +++ b/libgfortran/io/transfer.c @@ -1205,7 +1205,7 @@ data_transfer_init (int read_flag) #define MAX_READ 4096 static void -next_record_r (int done) +next_record_r (void) { int rlength, length; gfc_offset new; @@ -1296,7 +1296,7 @@ next_record_r (int done) /* Position to the next record in write mode. */ static void -next_record_w (int done) +next_record_w (void) { gfc_offset c, m; int length; @@ -1395,9 +1395,9 @@ next_record (int done) current_unit->read_bad = 0; if (g.mode == READING) - next_record_r (done); + next_record_r (); else - next_record_w (done); + next_record_w (); /* keep position up to date for INQUIRE */ current_unit->flags.position = POSITION_ASIS; @@ -1482,7 +1482,9 @@ finalize_transfer (void) data transfer, it just updates the length counter. */ static void -iolength_transfer (bt type, void *dest, int len) +iolength_transfer (bt type __attribute__ ((unused)), + void *dest __attribute__ ((unused)), + int len) { if (ioparm.iolength != NULL) *ioparm.iolength += len; |