aboutsummaryrefslogtreecommitdiff
path: root/ldebug.c
diff options
context:
space:
mode:
Diffstat (limited to 'ldebug.c')
-rw-r--r--ldebug.c11
1 files changed, 3 insertions, 8 deletions
diff --git a/ldebug.c b/ldebug.c
index 00ab2284..80d367cd 100644
--- a/ldebug.c
+++ b/ldebug.c
@@ -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;