summaryrefslogtreecommitdiff
path: root/ldebug.c
diff options
context:
space:
mode:
Diffstat (limited to 'ldebug.c')
-rw-r--r--ldebug.c16
1 files changed, 4 insertions, 12 deletions
diff --git a/ldebug.c b/ldebug.c
index f0b71758..ea11cefd 100644
--- a/ldebug.c
+++ b/ldebug.c
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: ldebug.c,v 1.71 2001/03/02 17:27:50 roberto Exp roberto $ 2** $Id: ldebug.c,v 1.72 2001/03/06 14:46:54 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*/
@@ -405,11 +405,6 @@ static Instruction luaG_symbexec (lua_State *L, const Proto *pt,
405 push = arg2; 405 push = arg2;
406 break; 406 break;
407 } 407 }
408 case OP_TAILCALL: {
409 check(arg1 < top && arg2 <= top);
410 pop = top-arg2;
411 break;
412 }
413 case OP_PUSHNIL: { 408 case OP_PUSHNIL: {
414 check(arg1 > 0); 409 check(arg1 > 0);
415 push = arg1; 410 push = arg1;
@@ -585,12 +580,9 @@ static const l_char *getfuncname (lua_State *L, StkId f, const l_char **name) {
585 Instruction i; 580 Instruction i;
586 if (pc == -1) return NULL; /* function is not activated */ 581 if (pc == -1) return NULL; /* function is not activated */
587 i = p->code[pc]; 582 i = p->code[pc];
588 switch (GET_OPCODE(i)) { 583 return (GET_OPCODE(i) == OP_CALL
589 case OP_CALL: case OP_TAILCALL: 584 ? getobjname(L, (func+1)+GETARG_A(i), name)
590 return getobjname(L, (func+1)+GETARG_A(i), name); 585 : NULL); /* no useful name found */
591 default:
592 return NULL; /* no useful name found */
593 }
594 } 586 }
595} 587}
596 588