* intrinsics/unpack_generic.c: Remove const from parameter.

	* io/transfer.c (formatted_transfer): Remove unused variable.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@101499 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index ac02fb7..42b78ee 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,9 @@
+2005-07-01  Andreas Jaeger  <aj@suse.de>
+
+       * intrinsics/unpack_generic.c: Remove const from parameter.
+
+       * io/transfer.c (formatted_transfer): Remove unused variable.
+
 2005-06-28  Thomas Koenig  <Thomas.Koenig@online.de>
 
        PR libfortran/22142
@@ -46,7 +52,7 @@
        * aclocal.m4: Regenerated.
        * Makefile.in: Regenerated.
        * configure: Regenerated.
-       * intrinsics/hyper.c: New file, adds new wrapper functions. 
+       * intrinsics/hyper.c: New file, adds new wrapper functions.
 
 2005-06-23  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
 
@@ -233,7 +239,7 @@
        concerning advancing I/O.
        (data_transfer_init): Likewise.
        (finalize_transfer): Likewise.
-       
+
 2005-05-27  Thomas Koenig  <Thomas.Koenig@online.de>
 
        * runtime/in_pack_generic.c:  Adjust copyright years.

diff --git a/libgfortran/intrinsics/unpack_generic.c b/libgfortran/intrinsics/unpack_generic.c
index a5c098b..d8e1230 100644 (file)
--- a/libgfortran/intrinsics/unpack_generic.c
+++ b/libgfortran/intrinsics/unpack_generic.c
@@ -179,12 +179,12 @@ unpack1 (gfc_array_char *ret, const gfc_array_char *vector,
 }
 iexport(unpack1);
 
-extern void unpack0 (const gfc_array_char *, const gfc_array_char *,
+extern void unpack0 (gfc_array_char *, const gfc_array_char *,
                     const gfc_array_l4 *, char *);
 export_proto(unpack0);
 
 void
-unpack0 (const gfc_array_char *ret, const gfc_array_char *vector,
+unpack0 (gfc_array_char *ret, const gfc_array_char *vector,
         const gfc_array_l4 *mask, char *field)
 {
   gfc_array_char tmp;

diff --git a/libgfortran/io/transfer.c b/libgfortran/io/transfer.c
index e78924a..6a4a15e 100644 (file)
--- a/libgfortran/io/transfer.c
+++ b/libgfortran/io/transfer.c
@@ -439,7 +439,7 @@ formatted_transfer (bt type, void *p, int len)
 {
   int pos ,m ;
   fnode *f;
-  int i, n;
+  int n;
   int consume_data_flag;
 
   /* Change a complex data item into a pair of reals.  */