From 8f2a14065c60b1ac45c9019de43b73664bc7657d Mon Sep 17 00:00:00 2001 From: Andreas Jaeger Date: Tue, 17 May 2005 18:54:58 +0200 Subject: 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 --- libgfortran/io/unix.c | 17 ++++++++++------- 1 file changed, 10 insertions(+), 7 deletions(-) (limited to 'libgfortran/io/unix.c') diff --git a/libgfortran/io/unix.c b/libgfortran/io/unix.c index 2d8286c..462d48d 100644 --- a/libgfortran/io/unix.c +++ b/libgfortran/io/unix.c @@ -1,4 +1,5 @@ -/* Copyright (C) 2002, 2003, 2004 Free Software Foundation, Inc. +/* Copyright (C) 2002, 2003, 2004, 2005 + Free Software Foundation, Inc. Contributed by Andy Vaught This file is part of the GNU Fortran 95 runtime library (libgfortran). @@ -329,7 +330,8 @@ fd_flush (unix_stream * s) * to come next. */ static void -fd_alloc (unix_stream * s, gfc_offset where, int *len) +fd_alloc (unix_stream * s, gfc_offset where, + int *len __attribute__ ((unused))) { char *new_buffer; int n, read_len; @@ -606,7 +608,8 @@ mmap_flush (unix_stream * s) * guaranteed to be mappable. */ static try -mmap_alloc (unix_stream * s, gfc_offset where, int *len) +mmap_alloc (unix_stream * s, gfc_offset where, + int *len __attribute__ ((unused))) { gfc_offset offset; int length; @@ -711,7 +714,7 @@ mmap_close (unix_stream * s) static try -mmap_sfree (unix_stream * s) +mmap_sfree (unix_stream * s __attribute__ ((unused))) { return SUCCESS; } @@ -721,7 +724,7 @@ mmap_sfree (unix_stream * s) * mmap()-ed, we fall back to the file descriptor functions. */ static try -mmap_open (unix_stream * s) +mmap_open (unix_stream * s __attribute__ ((unused))) { char *p; int i; @@ -827,7 +830,7 @@ mem_seek (unix_stream * s, gfc_offset offset) static int -mem_truncate (unix_stream * s) +mem_truncate (unix_stream * s __attribute__ ((unused))) { return SUCCESS; } @@ -843,7 +846,7 @@ mem_close (unix_stream * s) static try -mem_sfree (unix_stream * s) +mem_sfree (unix_stream * s __attribute__ ((unused))) { return SUCCESS; } -- cgit v1.1