* toplev.c (vms_fopen): Remove, not needed.
From-SVN: r50584
This commit is contained in:
parent
6f1fd286cd
commit
fa2d765a47
@ -1,5 +1,7 @@
|
|||||||
2002-03-11 Douglas B Rupp <rupp@gnat.com>
|
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.
|
* vmsdbgout.c (lookup_filename): Adjust creation date for GMT.
|
||||||
|
|
||||||
* config/alpha/xm-vms.h (__UNIX_FWRITE): Define.
|
* config/alpha/xm-vms.h (__UNIX_FWRITE): Define.
|
||||||
|
23
gcc/toplev.c
23
gcc/toplev.c
@ -92,29 +92,6 @@ Software Foundation, 59 Temple Place - Suite 330, Boston, MA
|
|||||||
#include "halfpic.h"
|
#include "halfpic.h"
|
||||||
#endif
|
#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
|
/* Carry information from ASM_DECLARE_OBJECT_NAME
|
||||||
to ASM_FINISH_DECLARE_OBJECT. */
|
to ASM_FINISH_DECLARE_OBJECT. */
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user