diff options
Diffstat (limited to 'ldebug.c')
-rw-r--r-- | ldebug.c | 11 |
1 files changed, 3 insertions, 8 deletions
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: ldebug.c,v 2.54 2009/09/23 20:33:05 roberto Exp roberto $ | 2 | ** $Id: ldebug.c,v 2.55 2009/09/28 12:37:17 roberto Exp roberto $ |
3 | ** Debug Interface | 3 | ** Debug Interface |
4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
5 | */ | 5 | */ |
@@ -328,7 +328,8 @@ static const char *getobjname (lua_State *L, CallInfo *ci, int reg, | |||
328 | case OP_GETUPVAL: { | 328 | case OP_GETUPVAL: { |
329 | if (reg == a) { | 329 | if (reg == a) { |
330 | int u = GETARG_B(i); /* upvalue index */ | 330 | int u = GETARG_B(i); /* upvalue index */ |
331 | *name = p->upvalues ? getstr(p->upvalues[u]) : "?"; | 331 | TString *tn = p->upvalues[u].name; |
332 | *name = tn ? getstr(tn) : "?"; | ||
332 | what = "upvalue"; | 333 | what = "upvalue"; |
333 | } | 334 | } |
334 | break; | 335 | break; |
@@ -364,12 +365,6 @@ static const char *getobjname (lua_State *L, CallInfo *ci, int reg, | |||
364 | pc += b; /* do the jump */ | 365 | pc += b; /* do the jump */ |
365 | break; | 366 | break; |
366 | } | 367 | } |
367 | case OP_CLOSURE: { | ||
368 | int nup = p->p[GETARG_Bx(i)]->nups; | ||
369 | pc += nup; /* do not 'execute' pseudo-instructions */ | ||
370 | lua_assert(pc <= lastpc); | ||
371 | break; | ||
372 | } | ||
373 | default: | 368 | default: |
374 | if (testAMode(op) && reg == a) what = NULL; | 369 | if (testAMode(op) && reg == a) what = NULL; |
375 | break; | 370 | break; |