diff options
| author | Janne Blomqvist <jb@gcc.gnu.org> | 2014-06-08 08:43:29 +0300 |
|---|---|---|
| committer | Janne Blomqvist <jb@gcc.gnu.org> | 2014-06-08 08:43:29 +0300 |
| commit | 89a862b40a387ef42618176addf192b33c556f7d (patch) | |
| tree | ce7c2693e80de90ba4a312ca3616c556a673856e /libgfortran/io/transfer.c | |
| parent | 136a5f4548a68455967a2f4b9eab4b3f78fff6d3 (diff) | |
| download | gcc-89a862b40a387ef42618176addf192b33c556f7d.zip gcc-89a862b40a387ef42618176addf192b33c556f7d.tar.gz gcc-89a862b40a387ef42618176addf192b33c556f7d.tar.bz2 | |
PR 56981 Flush buffer at record boundary if possible.
2014-06-08 Janne Blomqvist <jb@gcc.gnu.org>
PR libfortran/56981
* io/unix.h (struct stream_vtable): Add new member function,
markeor.
(smarkeor): New inline function.
(flush_if_unbuffered): Remove prototype.
* io/unix.c (raw_markeor): New function.
(raw_vtable): Initialize markeor member.
(buf_markeor): New function.
(buf_vtable): Initialize markeor member.
(mem_vtable): Likewise.
(mem4_vtable): Likewise.
(flush_if_unbuffered): Remove function.
* io/transfer.c (next_record): Call smarkeor instead of
flush_if_unbuffered.
From-SVN: r211353
Diffstat (limited to 'libgfortran/io/transfer.c')
| -rw-r--r-- | libgfortran/io/transfer.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libgfortran/io/transfer.c b/libgfortran/io/transfer.c index cfe92ca..cc0132c8 100644 --- a/libgfortran/io/transfer.c +++ b/libgfortran/io/transfer.c @@ -3512,7 +3512,7 @@ next_record (st_parameter_dt *dtp, int done) pre_position (dtp); fbuf_flush (dtp->u.p.current_unit, dtp->u.p.mode); - flush_if_unbuffered (dtp->u.p.current_unit->s); + smarkeor (dtp->u.p.current_unit->s); } |