wrong message error in some cases involving closures

This commit is contained in:
Roberto Ierusalimschy
2006-08-07 16:04:06 -03:00
parent 5019b2dd20
commit ca7e5b5cb6
2 changed files with 49 additions and 4 deletions

View File

@@ -1,5 +1,5 @@
/*
** $Id: ldebug.c,v 2.29 2005/12/22 16:19:56 roberto Exp roberto $
** $Id: ldebug.c,v 2.30 2006/07/11 15:53:29 roberto Exp roberto $
** Debug Interface
** See Copyright Notice in lua.h
*/
@@ -435,14 +435,16 @@ static Instruction symbexec (const Proto *pt, int lastpc, int reg) {
break;
}
case OP_CLOSURE: {
int nup;
int nup, j;
check(b < pt->sizep);
nup = pt->p[b]->nups;
check(pc + nup < pt->sizecode);
for (; nup>0; nup--) {
OpCode op1 = GET_OPCODE(pt->code[pc+nup]);
for (j = 1; j <= nup; j++) {
OpCode op1 = GET_OPCODE(pt->code[pc + j]);
check(op1 == OP_GETUPVAL || op1 == OP_MOVE);
}
if (reg != NO_REG) /* tracing? */
pc += nup; /* do not 'execute' these pseudo-instructions */
break;
}
case OP_VARARG: {