lefty: remove unused 'Eoktorun'

diff --git a/cmd/lefty/aix_mods/exec.c b/cmd/lefty/aix_mods/exec.c
index 6a2e623112f27884937bebffbde34010eb0139b1..5e35b2c382d396494a9c86fe6ddca96d0a3ba451 100644 (file)
--- a/cmd/lefty/aix_mods/exec.c
+++ b/cmd/lefty/aix_mods/exec.c
@@ -27,7 +27,7 @@ static int lvarn, llvari, flvari;
 Tobj root, null;
 Tobj rtno;
 int Erun;
-int Eerrlevel, Estackdepth, Eshowbody, Eshowcalls, Eoktorun;
+int Eerrlevel, Estackdepth, Eshowbody, Eshowcalls;
 
 #define PUSHJMP(op, np, b) op = (volatile jmp_buf *) np, np = (jmp_buf *) &b
 #define POPJMP(op, np) np = (jmp_buf *) op
@@ -137,7 +137,6 @@ void Einit(void)
     sinfoi = 0;
     Erun = FALSE;
     running = 0;
-    Eoktorun = FALSE;
 }
 
 void Eterm(void)
@@ -158,8 +157,6 @@ Tobj Eunit(Tobj co)
 
     jmp_buf eljbuf;
 
-    Eoktorun = FALSE;
-
     if (!co)
        return NULL;
 

diff --git a/cmd/lefty/exec.c b/cmd/lefty/exec.c
index a4c2cd201c8153ee9eeb448e9a58502135a0030f..27d8da50352e4c9aef19a0a2b721f0ae5e33ed2e 100644 (file)
--- a/cmd/lefty/exec.c
+++ b/cmd/lefty/exec.c
@@ -27,7 +27,7 @@ static int lvarn, llvari, flvari;
 Tobj root, null;
 Tobj rtno;
 int Erun;
-int Eerrlevel, Estackdepth, Eshowbody, Eshowcalls, Eoktorun;
+int Eerrlevel, Estackdepth, Eshowbody, Eshowcalls;
 
 #define PUSHJMP(op, np, b) op = (volatile jmp_buf *) np, np = (jmp_buf *) &b
 #define POPJMP(op, np) np = (jmp_buf *) op
@@ -149,7 +149,6 @@ void Einit (void) {
     sinfoi = 0;
     Erun = FALSE;
     running = 0;
-    Eoktorun = FALSE;
 }
 
 void Eterm (void) {
@@ -168,8 +167,6 @@ Tobj Eunit (Tobj co) {
 
     jmp_buf eljbuf;
 
-    Eoktorun = FALSE;
-
     if (!co)
         return NULL;
 

diff --git a/cmd/lefty/exec.h b/cmd/lefty/exec.h
index cea66141e03e0102b089142243a1dae97f64b01a..acdabce63d0ba22b3158362608840312c33c63fe 100644 (file)
--- a/cmd/lefty/exec.h
+++ b/cmd/lefty/exec.h
@@ -17,7 +17,7 @@ typedef struct Tonm_t lvar_t;
 extern Tobj root, null;
 extern Tobj rtno;
 extern int Erun;
-extern int Eerrlevel, Estackdepth, Eshowbody, Eshowcalls, Eoktorun;
+extern int Eerrlevel, Estackdepth, Eshowbody, Eshowcalls;
 
 void Einit (void);
 void Eterm (void);

diff --git a/cmd/lefty/internal.c b/cmd/lefty/internal.c
index 695e7dba575e0728bc4bfa4659c95020a6e40277..00cd27b1107f7c0dc0e8b0bd863d5641282fd292 100644 (file)
--- a/cmd/lefty/internal.c
+++ b/cmd/lefty/internal.c
@@ -628,7 +628,7 @@ int Iload (int argc, lvar_t *argv) {
             src.flag = FILESRC, src.s = NULL, src.fp = fp;
             src.tok = -1, src.lnum = 1;
             while ((co = Punit (&src)))
-                Eoktorun = TRUE, Eunit (co);
+                Eunit(co);
             if (fp != stdin)
                 fclose (fp);
         } else
@@ -646,7 +646,7 @@ int Irun (int argc, lvar_t *argv) {
         src.flag = CHARSRC, src.s = s, src.fp = NULL;
         src.tok = -1, src.lnum = 1;
         while ((co = Punit (&src)))
-            Eoktorun = TRUE, Eunit (co);
+            Eunit(co);
     }
     return L_SUCCESS;
 }

diff --git a/cmd/lefty/txtview.c b/cmd/lefty/txtview.c
index 27fca91ad40bb1b1c2300761e34c593e568062d8..b1ed3c76ae09c1c3f623303c4a6ba5b9463ca3e5 100644 (file)
--- a/cmd/lefty/txtview.c
+++ b/cmd/lefty/txtview.c
@@ -307,7 +307,7 @@ void TXTprocess (int wi, char *sp) {
 
     src.s = sp;
     if ((co = Punit (&src)))
-        Eoktorun = TRUE, Eunit (co);
+        Eunit(co);
 }
 
 void TXTupdate (void) {