From fa2d765a47f69e32c79695d95b866e5f4f33f1e9 Mon Sep 17 00:00:00 2001
From: Douglas B Rupp <rupp@gnat.com>
Date: Mon, 11 Mar 2002 08:27:46 -0500
Subject: [PATCH] * toplev.c (vms_fopen): Remove, not needed.

From-SVN: r50584
---
 gcc/ChangeLog |  2 ++
 gcc/toplev.c  | 23 -----------------------
 2 files changed, 2 insertions(+), 23 deletions(-)

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 0b88f6400e5..776a1626416 100644
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,5 +1,7 @@
 2002-03-11  Douglas B Rupp  <rupp@gnat.com>
 
+	* toplev.c (vms_fopen): Remove, not needed.
+
 	* vmsdbgout.c (lookup_filename): Adjust creation date for GMT.
 
 	* config/alpha/xm-vms.h (__UNIX_FWRITE): Define.
diff --git a/gcc/toplev.c b/gcc/toplev.c
index 2e120f85b41..6530adfd0e7 100644
--- a/gcc/toplev.c
+++ b/gcc/toplev.c
@@ -92,29 +92,6 @@ Software Foundation, 59 Temple Place - Suite 330, Boston, MA
 #include "halfpic.h"
 #endif
 
-#ifdef VMS
-/* The extra parameters substantially improve the I/O performance.  */
-
-static FILE *
-vms_fopen (fname, type)
-     char *fname;
-     char *type;
-{
-  /* The <stdio.h> in the gcc-vms-1.42 distribution prototypes fopen with two
-     fixed arguments, which matches ANSI's specification but not VAXCRTL's
-     pre-ANSI implementation.  This hack circumvents the mismatch problem.  */
-  FILE *(*vmslib_fopen)() = (FILE *(*)()) fopen;
-
-  if (*type == 'w')
-    return (*vmslib_fopen) (fname, type, "mbc=32",
-			    "deq=64", "fop=tef", "shr=nil");
-  else
-    return (*vmslib_fopen) (fname, type, "mbc=32");
-}
-
-#define fopen vms_fopen
-#endif	/* VMS  */
-
 /* Carry information from ASM_DECLARE_OBJECT_NAME
    to ASM_FINISH_DECLARE_OBJECT.  */