OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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
This commit is contained in:
Andreas Jaeger 2005-07-01 07:44:50 +02:00
parent a4f9129458
commit a3b6aba29c
3 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
libgfortran/ChangeLog
View File

@ -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.

4
libgfortran/intrinsics/unpack_generic.c
View File

@ -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;

2
libgfortran/io/transfer.c
View File

@ -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. */