This is the mail archive of the gcc-patches@gcc.gnu.org mailing list for the GCC project.
Index Nav: | [Date Index] [Subject Index] [Author Index] [Thread Index] | |
---|---|---|
Message Nav: | [Date Prev] [Date Next] | [Thread Prev] [Thread Next] |
Other format: | [Raw text] |
With the appended patch (and all my previous ones), I can build libgfortran without any warnings/errors with the following flags: -Werror -Wstrict-prototypes -Wmissing-prototypes -Wold-style-definition -Wall Tested on Linux/x86-64, committed as obvious, Andreas 2005-05-15 Andreas Jaeger <aj@suse.de> * io/unit.c (is_internal_unit): Add void as parameter list. * io/transfer.c: Move prototype declarations before the functions. ============================================================ Index: libgfortran/io/unit.c --- io/unit.c 15 May 2005 08:25:52 -0000 1.10 +++ io/unit.c 15 May 2005 13:23:18 -0000 @@ -275,7 +275,7 @@ get_unit (int read_flag) * not */ int -is_internal_unit () +is_internal_unit (void) { return current_unit == &internal_unit; } ============================================================ Index: libgfortran/io/transfer.c --- io/transfer.c 15 May 2005 12:49:40 -0000 1.39 +++ io/transfer.c 15 May 2005 13:23:18 -0000 @@ -1627,6 +1627,11 @@ st_write_done (void) /* Receives the scalar information for namelist objects and stores it in a linked list of namelist_info types. */ +extern void st_set_nml_var (void * ,char * , + GFC_INTEGER_4 ,gfc_charlen_type ,GFC_INTEGER_4); +export_proto(st_set_nml_var); + + void st_set_nml_var (void * var_addr, char * var_name, GFC_INTEGER_4 len, gfc_charlen_type string_length, GFC_INTEGER_4 dtype) @@ -1674,6 +1679,9 @@ st_set_nml_var (void * var_addr, char * } /* Store the dimensional information for the namelist object. */ +extern void st_set_nml_var_dim (GFC_INTEGER_4, GFC_INTEGER_4, + GFC_INTEGER_4 ,GFC_INTEGER_4); +export_proto(st_set_nml_var_dim); void st_set_nml_var_dim (GFC_INTEGER_4 n_dim, GFC_INTEGER_4 stride, @@ -1690,11 +1698,3 @@ st_set_nml_var_dim (GFC_INTEGER_4 n_dim, nml->dim[n].lbound = (ssize_t)lbound; nml->dim[n].ubound = (ssize_t)ubound; } - -extern void st_set_nml_var (void * ,char * , - GFC_INTEGER_4 ,gfc_charlen_type ,GFC_INTEGER_4); -export_proto(st_set_nml_var); - -extern void st_set_nml_var_dim (GFC_INTEGER_4, GFC_INTEGER_4, - GFC_INTEGER_4 ,GFC_INTEGER_4); -export_proto(st_set_nml_var_dim); -- Andreas Jaeger, aj@suse.de, http://www.suse.de/~aj SUSE Linux Products GmbH, Maxfeldstr. 5, 90409 Nürnberg, Germany GPG fingerprint = 93A3 365E CE47 B889 DF7F FED1 389A 563C C272 A126
Attachment:
pgp00000.pgp
Description: PGP signature
Index Nav: | [Date Index] [Subject Index] [Author Index] [Thread Index] | |
---|---|---|
Message Nav: | [Date Prev] [Date Next] | [Thread Prev] [Thread Next] |