From 000aa32a49ae77b3703599eb9a66b9f7d0ab7032 Mon Sep 17 00:00:00 2001 From: Janne Blomqvist Date: Sun, 16 May 2004 16:27:48 +0300 Subject: 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 --- libgfortran/io/unix.c | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'libgfortran/io/unix.c') 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. -- cgit v1.1