d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

removed temp file

Browse source
This commit is contained in:
ceriel 1988-07-06 18:18:46 +00:00
parent c624447dfc
commit b365c53262
2 changed files with 1 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
lang/basic/src/bem.h
View file

@ -48,7 +48,6 @@ extern char tmpfname[MAXFILENAME]; /* temporary statements file */
extern File *emfile; /* EM output file */ extern File *emfile; /* EM output file */
extern File *datfile; /* data file */ extern File *datfile; /* data file */
extern File *tmp_file; /* compiler temporary */
extern File *yyin; /* Compiler input */ extern File *yyin; /* Compiler input */
extern int endofinput; extern int endofinput;

4
lang/basic/src/initialize.c
View file

@ -12,7 +12,6 @@ static char rcs_id[] = "$Header$";
/* generate temporary files etc */ /* generate temporary files etc */
File *tmp_file;
File *datfile; File *datfile;
@ -43,8 +42,7 @@ initialize()
C_init((arith)BEMINTSIZE, (arith)BEMPTRSIZE); C_init((arith)BEMINTSIZE, (arith)BEMPTRSIZE);
result1 = sys_open(inpfile, OP_READ, &yyin); result1 = sys_open(inpfile, OP_READ, &yyin);
result2 = C_open(outfile); result2 = C_open(outfile);
result3 = sys_open(tmpfname,OP_WRITE, &tmp_file); if ( result1==0 || result2== 0 )
if ( result1==0 || result2== 0 || result3== 0 )
fatal("Improper file permissions"); fatal("Improper file permissions");
C_magic(); C_magic();
fillkex(); /* initialize symbol table */ fillkex(); /* initialize symbol table */