rusefi
/
lua
mirror of https://github.com/rusefi/lua.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

details

This commit is contained in:
Roberto Ierusalimschy 2004-09-01 10:47:31 -03:00
parent 1dd8c9b6b6
commit 2aba14b623
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ldebug.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: ldebug.c,v 2.6 2004/06/02 19:07:55 roberto Exp roberto $ ** $Id: ldebug.c,v 2.7 2004/06/29 18:49:02 roberto Exp roberto $
** Debug Interface ** Debug Interface
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -357,7 +357,7 @@ static Instruction luaG_symbexec (const Proto *pt, int lastpc, int reg) {
} }
case OP_TFORLOOP: { case OP_TFORLOOP: {
checkreg(pt, a+5); /* space for control variables */ checkreg(pt, a+5); /* space for control variables */
if (reg >= a) last = pc; /* affect all registers above base */ if (reg >= a+3) last = pc; /* affect all regs above its call base */
break; break;
} }
case OP_TFORPREP: case OP_TFORPREP:
@ -491,7 +491,8 @@ static const char *getfuncname (CallInfo *ci, const char **name) {
return NULL; /* calling function is not Lua (or is unknown) */ return NULL; /* calling function is not Lua (or is unknown) */
ci--; /* calling function */ ci--; /* calling function */
i = ci_func(ci)->l.p->code[currentpc(ci)]; i = ci_func(ci)->l.p->code[currentpc(ci)];
if (GET_OPCODE(i) == OP_CALL || GET_OPCODE(i) == OP_TAILCALL) if (GET_OPCODE(i) == OP_CALL || GET_OPCODE(i) == OP_TAILCALL ||
GET_OPCODE(i) == OP_TFORLOOP)
return getobjname(ci, GETARG_A(i), name); return getobjname(ci, GETARG_A(i), name);
else else
return NULL; /* no useful name can be found */ return NULL; /* no useful name can be found */