From ee8093639bfad4371cc7b5abd87e4bfa71c7662b Mon Sep 17 00:00:00 2001 From: aj Date: Fri, 1 Jul 2005 05:44:50 +0000 Subject: [PATCH] * 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 --- libgfortran/ChangeLog | 10 ++++++++-- libgfortran/intrinsics/unpack_generic.c | 4 ++-- libgfortran/io/transfer.c | 2 +- 3 files changed, 11 insertions(+), 5 deletions(-) diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index ac02fb7..42b78ee 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,9 @@ +2005-07-01 Andreas Jaeger + + * intrinsics/unpack_generic.c: Remove const from parameter. + + * io/transfer.c (formatted_transfer): Remove unused variable. + 2005-06-28 Thomas Koenig 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 @@ -233,7 +239,7 @@ concerning advancing I/O. (data_transfer_init): Likewise. (finalize_transfer): Likewise. - + 2005-05-27 Thomas Koenig * 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 --- 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 --- 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. */ -- 2.7.4