diff options
| author | Janne Blomqvist <jblomqvi@cc.hut.fi> | 2004-05-16 16:27:48 +0300 |
|---|---|---|
| committer | Paul Brook <pbrook@gcc.gnu.org> | 2004-05-16 13:27:48 +0000 |
| commit | 000aa32a49ae77b3703599eb9a66b9f7d0ab7032 (patch) | |
| tree | 98bc62ebf30b17a551677a60581e8a1ed4703037 /libgfortran/io/unix.c | |
| parent | 1ab106cdc46e598261d9ffa0673936d35af923db (diff) | |
| download | gcc-000aa32a49ae77b3703599eb9a66b9f7d0ab7032.zip gcc-000aa32a49ae77b3703599eb9a66b9f7d0ab7032.tar.gz gcc-000aa32a49ae77b3703599eb9a66b9f7d0ab7032.tar.bz2 | |
io.h (flush): Add prototype.
* io/io.h (flush): Add prototype.
* io/transfer.c (finalize_transfer): Flush partial records.
* io/unix.c (flush): New function.
From-SVN: r81913
Diffstat (limited to 'libgfortran/io/unix.c')
| -rw-r--r-- | libgfortran/io/unix.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/libgfortran/io/unix.c b/libgfortran/io/unix.c index 3cefd2a..104afb2c 100644 --- a/libgfortran/io/unix.c +++ b/libgfortran/io/unix.c @@ -1394,6 +1394,12 @@ is_seekable (stream * s) return ((unix_stream *) s)->mmaped; } +try +flush (stream *s) +{ + return fd_flush( (unix_stream *) s); +} + /* How files are stored: This is an operating-system specific issue, and therefore belongs here. There are three cases to consider. |