diff options
| author | Janne Blomqvist <jb@gcc.gnu.org> | 2009-04-17 22:52:02 +0300 |
|---|---|---|
| committer | Janne Blomqvist <jb@gcc.gnu.org> | 2009-04-17 22:52:02 +0300 |
| commit | 4e23895d6aaf10a9905bbb3540de72ba9f471bc4 (patch) | |
| tree | 738953035768ddfbfc66aeca22cabfcca3a03f98 /libgfortran/io | |
| parent | 9e3be8891057eba25a95eba3fc72eb527d1d4457 (diff) | |
| download | gcc-4e23895d6aaf10a9905bbb3540de72ba9f471bc4.zip gcc-4e23895d6aaf10a9905bbb3540de72ba9f471bc4.tar.gz gcc-4e23895d6aaf10a9905bbb3540de72ba9f471bc4.tar.bz2 | |
io.h (is_preconnected): Remove prototype.
2009-04-17 Janne Blomqvist <jb@gcc.gnu.org>
* io/io.h (is_preconnected): Remove prototype.
* io/unix.c (is_preconnected): Remove function.
From-SVN: r146287
Diffstat (limited to 'libgfortran/io')
| -rw-r--r-- | libgfortran/io/io.h | 3 | ||||
| -rw-r--r-- | libgfortran/io/unix.c | 11 |
2 files changed, 0 insertions, 14 deletions
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 |