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

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index fd703da64476569f0aab0835d5aef5363d754538..20a07192b6d6548e89e092a9967c89f003c98f67 100644 (file)
--- 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 c9b3db3da5fe0a160db0d6cee8ea65eba4c11a2e..22e097ae22d61cdf1cd928db50b855e85a3b6525 100644 (file)
--- 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 4d5ec70ae84ae9deb01dd8275bede14258240b6e..a7eb4e36ae5096a7f885df3d32bf4ed18193435b 100644 (file)
--- 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