From 9bd3fc10391ea6868c324d9d09a0fca4ef453015 Mon Sep 17 00:00:00 2001
From: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date: Fri, 6 Dec 2002 15:15:35 -0200
Subject: TFORLOOP makes a call that affects all values above it on the stack

---
 ldebug.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/ldebug.c b/ldebug.c
index 8bb20f62..9f170c6b 100644
--- a/ldebug.c
+++ b/ldebug.c
@@ -1,5 +1,5 @@
 /*
-** $Id: ldebug.c,v 1.140 2002/11/26 08:59:48 roberto Exp roberto $
+** $Id: ldebug.c,v 1.141 2002/12/04 17:38:31 roberto Exp roberto $
 ** Debug Interface
 ** See Copyright Notice in lua.h
 */
@@ -365,6 +365,7 @@ static Instruction luaG_symbexec (const Proto *pt, int lastpc, int reg) {
       }
       case OP_TFORLOOP:
         checkreg(pt, a+2+c);
+        if (reg >= a) last = pc;  /* affect all registers above base */
         /* go through */
       case OP_FORLOOP:
         checkreg(pt, a+2);
-- 
cgit v1.2.3-55-g6feb