diff options
| author | Andreas Jaeger <aj@suse.de> | 2005-05-15 15:25:19 +0200 |
|---|---|---|
| committer | Andreas Jaeger <aj@gcc.gnu.org> | 2005-05-15 15:25:19 +0200 |
| commit | 944e86ee0993cc5e4f9fc06be22a8a88300698d1 (patch) | |
| tree | f0ece14751bfca2c128a143d190f7c36e6ecd34e /libgfortran | |
| parent | 420aa7b82c350fee7ce3ea0f0b65be123c3002a6 (diff) | |
| download | gcc-944e86ee0993cc5e4f9fc06be22a8a88300698d1.zip gcc-944e86ee0993cc5e4f9fc06be22a8a88300698d1.tar.gz gcc-944e86ee0993cc5e4f9fc06be22a8a88300698d1.tar.bz2 | |
unit.c (is_internal_unit): Add void as parameter list.
* io/unit.c (is_internal_unit): Add void as parameter list.
* io/transfer.c: Move prototype declarations before the functions.
From-SVN: r99721
Diffstat (limited to 'libgfortran')
| -rw-r--r-- | libgfortran/ChangeLog | 4 | ||||
| -rw-r--r-- | libgfortran/io/transfer.c | 16 | ||||
| -rw-r--r-- | libgfortran/io/unit.c | 2 |
3 files changed, 13 insertions, 9 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index ba91e8a..38be6a3 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,5 +1,9 @@ 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. + * runtime/normalize.c (almostone_r4, almostone_r8): Fix parameter list. diff --git a/libgfortran/io/transfer.c b/libgfortran/io/transfer.c index 9981a9f..ce556ff 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); diff --git a/libgfortran/io/unit.c b/libgfortran/io/unit.c index 8fb62e3..6f64825 100644 --- a/libgfortran/io/unit.c +++ b/libgfortran/io/unit.c @@ -275,7 +275,7 @@ get_unit (int read_flag) * not */ int -is_internal_unit () +is_internal_unit (void) { return current_unit == &internal_unit; } |