diff options
Diffstat (limited to 'ldebug.c')
-rw-r--r-- | ldebug.c | 16 |
1 files changed, 4 insertions, 12 deletions
@@ -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 | ||