From: aj <aj@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Sun, 15 May 2005 13:25:19 +0000 (+0000)
Subject: 	* io/unit.c (is_internal_unit): Add void as parameter list.
X-Git-Tag: upstream/4.9.2~61194
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=4caf14188c7d6a2d13d3f5e22952de68494110bd;p=platform%2Fupstream%2Flinaro-gcc.git

	* 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
---

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;
 }