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

expressions too complex for an ARM compiler...

This commit is contained in:
Roberto Ierusalimschy 2003-02-19 07:28:58 -03:00
parent 9866fb0ef1
commit c4f9c887fc
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
ldebug.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: ldebug.c,v 1.143 2002/12/11 12:34:22 roberto Exp roberto $ ** $Id: ldebug.c,v 1.144 2003/02/11 10:46:24 roberto Exp roberto $
** Debug Interface ** Debug Interface
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -451,8 +451,9 @@ static const char *getobjname (CallInfo *ci, int stackpos, const char **name) {
lua_assert(pc != -1); lua_assert(pc != -1);
switch (GET_OPCODE(i)) { switch (GET_OPCODE(i)) {
case OP_GETGLOBAL: { case OP_GETGLOBAL: {
lua_assert(ttisstring(&p->k[GETARG_Bx(i)])); int g = GETARG_Bx(i); /* global index */
*name = svalue(&p->k[GETARG_Bx(i)]); lua_assert(ttisstring(&p->k[g]));
*name = svalue(&p->k[g]);
return "global"; return "global";
} }
case OP_MOVE: { case OP_MOVE: {
@ -463,11 +464,13 @@ static const char *getobjname (CallInfo *ci, int stackpos, const char **name) {
break; break;
} }
case OP_GETTABLE: { case OP_GETTABLE: {
*name = kname(p, GETARG_C(i)); int k = GETARG_C(i); /* key index */
*name = kname(p, k);
return "field"; return "field";
} }
case OP_SELF: { case OP_SELF: {
*name = kname(p, GETARG_C(i)); int k = GETARG_C(i); /* key index */
*name = kname(p, k);
return "method"; return "method";
} }
default: break; default: break;