From 14e13fb40743e069e45b0790f206f14b5f8a887a Mon Sep 17 00:00:00 2001
From: Bart Schaefer <barts@users.sourceforge.net>
Date: Tue, 23 Oct 2001 16:17:03 +0000
Subject: Fix infinite loop on `case' with xtrace.

---
 Src/loop.c | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'Src')

diff --git a/Src/loop.c b/Src/loop.c
index 57ee11695..89ef59689 100644
--- a/Src/loop.c
+++ b/Src/loop.c
@@ -553,9 +553,8 @@ execcase(Estate state, int do_exec)
 	    printprompt4();
 	    fprintf(xtrerr, "case %s (%s)\n", word, pat2);
 	    fflush(xtrerr);
-	    state->pc++;
-	} else
-	    state->pc += 2;
+	}
+	state->pc += 2;
 
 	if (*spprog != dummy_patprog1 && *spprog != dummy_patprog2)
 	    pprog = *spprog;
-- 
cgit 1.4.1