diff options
| -rw-r--r-- | libgfortran/ChangeLog | 5 | ||||
| -rw-r--r-- | libgfortran/io/io.h | 3 | ||||
| -rw-r--r-- | libgfortran/io/unix.c | 11 |
3 files changed, 5 insertions, 14 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index fd703da..20a0719 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,8 @@ +2009-04-17 Janne Blomqvist <jb@gcc.gnu.org> + + * io/io.h (is_preconnected): Remove prototype. + * io/unix.c (is_preconnected): Remove function. + 2009-04-17 Ulrich Weigand <Ulrich.Weigand@de.ibm.com> * configure.ac: Test for -ffunction-sections -fdata-sections and diff --git a/libgfortran/io/io.h b/libgfortran/io/io.h index c9b3db3..22e097a 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 4d5ec70..a7eb4e3 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 |