From 576e00858c8b8d6d9477fd44e8b210ab25b6de69 Mon Sep 17 00:00:00 2001 From: Janne Blomqvist Date: Wed, 3 Nov 2010 22:49:31 +0200 Subject: Remove unused empty_internal_buffer function From-SVN: r166276 --- libgfortran/io/unix.c | 9 --------- 1 file changed, 9 deletions(-) (limited to 'libgfortran/io/unix.c') diff --git a/libgfortran/io/unix.c b/libgfortran/io/unix.c index a2903af..67d8eb9 100644 --- a/libgfortran/io/unix.c +++ b/libgfortran/io/unix.c @@ -849,15 +849,6 @@ mem_close (unix_stream * s) define functional equivalents of the following. *********************************************************************/ -/* empty_internal_buffer()-- Zero the buffer of Internal file */ - -void -empty_internal_buffer(stream *strm) -{ - unix_stream * s = (unix_stream *) strm; - memset(s->buffer, ' ', s->file_length); -} - /* open_internal()-- Returns a stream structure from a character(kind=1) internal file */ -- cgit v1.1