diff options
Diffstat (limited to 'ldebug.c')
-rw-r--r-- | ldebug.c | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: ldebug.c,v 1.102 2002/03/11 12:45:00 roberto Exp roberto $ | 2 | ** $Id: ldebug.c,v 1.103 2002/03/19 12:45:25 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 | */ |
@@ -296,6 +296,7 @@ static int checkopenop (const Proto *pt, int pc) { | |||
296 | Instruction i = pt->code[pc+1]; | 296 | Instruction i = pt->code[pc+1]; |
297 | switch (GET_OPCODE(i)) { | 297 | switch (GET_OPCODE(i)) { |
298 | case OP_CALL: | 298 | case OP_CALL: |
299 | case OP_TAILCALL: | ||
299 | case OP_RETURN: { | 300 | case OP_RETURN: { |
300 | check(GETARG_B(i) == 0); | 301 | check(GETARG_B(i) == 0); |
301 | return 1; | 302 | return 1; |
@@ -405,6 +406,7 @@ static Instruction luaG_symbexec (const Proto *pt, int lastpc, int reg) { | |||
405 | if (reg >= a) last = pc; /* affect all registers above base */ | 406 | if (reg >= a) last = pc; /* affect all registers above base */ |
406 | break; | 407 | break; |
407 | } | 408 | } |
409 | case OP_TAILCALL: | ||
408 | case OP_RETURN: { | 410 | case OP_RETURN: { |
409 | b--; /* b = num. returns */ | 411 | b--; /* b = num. returns */ |
410 | if (b > 0) checkreg(pt, a+b-1); | 412 | if (b > 0) checkreg(pt, a+b-1); |