unpack_generic.c: Remove const from parameter.

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

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

From-SVN: r101499

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index ac02fb7ee4e3fdc9cf25462f9a9578d2b3362e8f..42b78ee93b9e81fd8da3ec04d8bd42a88fb60cc1 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 a5c098b0e819c89e862975a3a8a35ca12996c74b..d8e1230a79c9525d9e6ab20cc5bf261558082ab7 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 e78924a2b06871fbfa5465f19833ae9ff5b7327f..6a4a15ee939784f95cf8404de2e4d5e0fb056f1c 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.  */