From 4caf14188c7d6a2d13d3f5e22952de68494110bd Mon Sep 17 00:00:00 2001 From: aj Date: Sun, 15 May 2005 13:25:19 +0000 Subject: * io/unit.c (is_internal_unit): Add void as parameter list. * io/transfer.c: Move prototype declarations before the functions. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@99721 138bc75d-0d04-0410-961f-82ee72b054a4 --- libgfortran/io/transfer.c | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'libgfortran/io/transfer.c') diff --git a/libgfortran/io/transfer.c b/libgfortran/io/transfer.c index 9981a9f1daa..ce556ffd952 100644 --- a/libgfortran/io/transfer.c +++ b/libgfortran/io/transfer.c @@ -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 * var_name, GFC_INTEGER_4 len, } /* 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, GFC_INTEGER_4 stride, 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); -- cgit v1.2.1