diff options
| author | aj <aj@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-07-01 05:44:50 +0000 |
|---|---|---|
| committer | aj <aj@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-07-01 05:44:50 +0000 |
| commit | ee8093639bfad4371cc7b5abd87e4bfa71c7662b (patch) | |
| tree | ca02e6f9d2e80ce3dfe8f50305802fa8a299811d /libgfortran | |
| parent | 9df73626e16e031cdb93f615bfb07869307c5b86 (diff) | |
| download | ppe42-gcc-ee8093639bfad4371cc7b5abd87e4bfa71c7662b.tar.gz ppe42-gcc-ee8093639bfad4371cc7b5abd87e4bfa71c7662b.zip | |
* 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
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 ac02fb7ee4e..42b78ee93b9 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 a5c098b0e81..d8e1230a79c 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 e78924a2b06..6a4a15ee939 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. */ |
