removed temp file

diff --git a/lang/basic/src/bem.h b/lang/basic/src/bem.h
index b0d41e9..0f09629 100644 (file)
--- a/lang/basic/src/bem.h
+++ b/lang/basic/src/bem.h
@@ -48,7 +48,6 @@ extern char   tmpfname[MAXFILENAME];  /* temporary statements file */
 
 extern File    *emfile;                /* EM output file */
 extern File    *datfile;               /* data file */
-extern File    *tmp_file;              /* compiler temporary */
 extern File    *yyin;                  /* Compiler input */
 
 extern int     endofinput;

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