removed not-used variable

diff --git a/lang/basic/src/bem.c b/lang/basic/src/bem.c
index fe747dc..1791db4 100644 (file)
--- a/lang/basic/src/bem.c
+++ b/lang/basic/src/bem.c
@@ -28,7 +28,6 @@ static char rcs_graph[]       = RCS_GRAPH ;
 char   *program;
 
 char   datfname[MAXFILENAME] ;
-char   tmpfname[MAXFILENAME] ;
 
 char   *inpfile, *outfile;
 int    BEMINTSIZE = EMINTSIZE;

diff --git a/lang/basic/src/bem.h b/lang/basic/src/bem.h
index 0f09629..1ee7b45 100644 (file)
--- a/lang/basic/src/bem.h
+++ b/lang/basic/src/bem.h
@@ -44,7 +44,6 @@ extern char   *inpfile;               /* input tko compiler */
 extern char    *outfile;               /* output from compiler */
 
 extern char    datfname[MAXFILENAME];  /* data statements file */
-extern char    tmpfname[MAXFILENAME];  /* temporary statements file */
 
 extern File    *emfile;                /* EM output file */
 extern File    *datfile;               /* data file */

diff --git a/lang/basic/src/initialize.c b/lang/basic/src/initialize.c
index 3a7edff..09d510e 100644 (file)
--- a/lang/basic/src/initialize.c
+++ b/lang/basic/src/initialize.c
@@ -4,7 +4,6 @@
  */
 
 #include "bem.h"
-#include <em_path.h>
 
 #ifndef NORSCID
 static char rcs_id[] = "$Header$";
@@ -21,7 +20,6 @@ initialize()
        register char *cindex, *cptr;
         int result1, result2;
 
-       (void) sprint(tmpfname,"%s/abc%d",TMP_DIR,getpid());
        /* Find the basename */
        /* Strip leading directories */
        cindex= (char *)0;