OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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
This commit is contained in:
Andreas Jaeger 2005-05-15 15:25:19 +02:00 committed by Andreas Jaeger
parent 420aa7b82c
commit 944e86ee09
3 changed files with 13 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
libgfortran/ChangeLog
View File

@ -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.

16
libgfortran/io/transfer.c
View File

@ -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);

2
libgfortran/io/unit.c
View File

@ -275,7 +275,7 @@ get_unit (int read_flag)
* not */
int
is_internal_unit ()
is_internal_unit (void)
{
return current_unit == &internal_unit;
}