mirror of https://github.com/rusefi/lua.git
TFORLOOP makes a call that affects all values above it on the stack
This commit is contained in:
parent
cc4a22ebe2
commit
9bd3fc1039
3
ldebug.c
3
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
|
** Debug Interface
|
||||||
** See Copyright Notice in lua.h
|
** See Copyright Notice in lua.h
|
||||||
*/
|
*/
|
||||||
|
@ -365,6 +365,7 @@ static Instruction luaG_symbexec (const Proto *pt, int lastpc, int reg) {
|
||||||
}
|
}
|
||||||
case OP_TFORLOOP:
|
case OP_TFORLOOP:
|
||||||
checkreg(pt, a+2+c);
|
checkreg(pt, a+2+c);
|
||||||
|
if (reg >= a) last = pc; /* affect all registers above base */
|
||||||
/* go through */
|
/* go through */
|
||||||
case OP_FORLOOP:
|
case OP_FORLOOP:
|
||||||
checkreg(pt, a+2);
|
checkreg(pt, a+2);
|
||||||
|
|
Loading…
Reference in New Issue