lua

commit 9bd3fc10391ea6868c324d9d09a0fca4ef453015
parent cc4a22ebe28c5d09566facde05840ddf42778eac
Author: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date:   Fri,  6 Dec 2002 15:15:13 -0200

TFORLOOP makes a call that affects all values above it on the stack

Diffstat:
M
ldebug.c
 | 
3
++-

1 file changed, 2 insertions(+), 1 deletion(-)
diff --git 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);