This is the mail archive of the gcc-patches@gcc.gnu.org mailing list for the GCC project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

[Patch, libgfortran] Remove unix.c:is_preconnected


Hi,

I committed r146287, the attached patch, as obvious, just some dead code
removal.

-- 
Janne Blomqvist
2009-04-17  Janne Blomqvist  <jb@gcc.gnu.org>

	* io/io.h (is_preconnected): Remove prototype.
	* io/unix.c (is_preconnected): Remove function.
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

Attachment: signature.asc
Description: OpenPGP digital signature


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]