diff options
| author | Andreas Jaeger <aj@gcc.gnu.org> | 2005-07-01 07:44:50 +0200 |
|---|---|---|
| committer | Andreas Jaeger <aj@gcc.gnu.org> | 2005-07-01 07:44:50 +0200 |
| commit | a3b6aba29ce755802735a488b436e0b94d10ad15 (patch) | |
| tree | ca02e6f9d2e80ce3dfe8f50305802fa8a299811d /libgfortran | |
| parent | a4f9129458103e618d0f021a9975db06a9b7abf9 (diff) | |
| download | gcc-a3b6aba29ce755802735a488b436e0b94d10ad15.zip gcc-a3b6aba29ce755802735a488b436e0b94d10ad15.tar.gz gcc-a3b6aba29ce755802735a488b436e0b94d10ad15.tar.bz2 | |
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
Diffstat (limited to 'libgfortran')
| -rw-r--r-- | libgfortran/ChangeLog | 10 | ||||
| -rw-r--r-- | libgfortran/intrinsics/unpack_generic.c | 4 | ||||
| -rw-r--r-- | 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 <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 --- 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. */ |