From b3d25c88c4ffb4c950be87b9a9756306587ef52e Mon Sep 17 00:00:00 2001 From: jb Date: Fri, 17 Apr 2009 19:52:02 +0000 Subject: [PATCH] 2009-04-17 Janne Blomqvist * io/io.h (is_preconnected): Remove prototype. * io/unix.c (is_preconnected): Remove function. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@146287 138bc75d-0d04-0410-961f-82ee72b054a4 --- libgfortran/ChangeLog | 5 +++++ libgfortran/io/io.h | 3 --- libgfortran/io/unix.c | 11 ----------- 3 files changed, 5 insertions(+), 14 deletions(-) diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index fd703da6447..20a07192b6d 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,8 @@ +2009-04-17 Janne Blomqvist + + * io/io.h (is_preconnected): Remove prototype. + * io/unix.c (is_preconnected): Remove function. + 2009-04-17 Ulrich Weigand * configure.ac: Test for -ffunction-sections -fdata-sections and diff --git a/libgfortran/io/io.h b/libgfortran/io/io.h index c9b3db3da5f..22e097ae22d 100644 --- a/libgfortran/io/io.h +++ b/libgfortran/io/io.h @@ -773,9 +773,6 @@ internal_proto(is_seekable); extern int is_special (stream *); internal_proto(is_special); -extern int is_preconnected (stream *); -internal_proto(is_preconnected); - extern void flush_if_preconnected (stream *); internal_proto(flush_if_preconnected); diff --git a/libgfortran/io/unix.c b/libgfortran/io/unix.c index 4d5ec70ae84..a7eb4e36ae5 100644 --- a/libgfortran/io/unix.c +++ b/libgfortran/io/unix.c @@ -190,17 +190,6 @@ fix_fd (int fd) return fd; } -int -is_preconnected (stream * s) -{ - int fd; - - fd = ((unix_stream *) s)->fd; - if (fd == STDIN_FILENO || fd == STDOUT_FILENO || fd == STDERR_FILENO) - return 1; - else - return 0; -} /* If the stream corresponds to a preconnected unit, we flush the corresponding C stream. This is bugware for mixed C-Fortran codes -- 2.11.0