From 576e00858c8b8d6d9477fd44e8b210ab25b6de69 Mon Sep 17 00:00:00 2001 From: Janne Blomqvist Date: Wed, 3 Nov 2010 22:49:31 +0200 Subject: [PATCH] Remove unused empty_internal_buffer function From-SVN: r166276 --- libgfortran/ChangeLog | 5 +++++ libgfortran/io/unix.c | 9 --------- libgfortran/io/unix.h | 3 --- 3 files changed, 5 insertions(+), 12 deletions(-) diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 78589f5fd2c7..8e6673839d09 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,8 @@ +2010-11-03 Janne Blomqvist + + * io/unix.h: Remove empty_internal_buffer prototype. + * io/unix.c (empty_internal_buffer): Remove unused function. + 2010-11-03 Jerry DeLisle PR libgfortran/43899 diff --git a/libgfortran/io/unix.c b/libgfortran/io/unix.c index a2903af1b559..67d8eb941209 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 */ diff --git a/libgfortran/io/unix.h b/libgfortran/io/unix.h index dc433d75a8ae..956c011bded2 100644 --- a/libgfortran/io/unix.h +++ b/libgfortran/io/unix.h @@ -189,9 +189,6 @@ internal_proto(is_special); extern void flush_if_preconnected (stream *); internal_proto(flush_if_preconnected); -extern void empty_internal_buffer(stream *); -internal_proto(empty_internal_buffer); - extern int stream_isatty (stream *); internal_proto(stream_isatty);