diff options
-rw-r--r-- | ldebug.c | 7 |
1 files changed, 5 insertions, 2 deletions
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: ldebug.c,v 2.63 2010/01/13 16:18:25 roberto Exp roberto $ | 2 | ** $Id: ldebug.c,v 2.64 2010/02/26 20:40:29 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 | */ |
@@ -373,8 +373,11 @@ static const char *getfuncname (lua_State *L, CallInfo *ci, const char **name) { | |||
373 | switch (GET_OPCODE(i)) { | 373 | switch (GET_OPCODE(i)) { |
374 | case OP_CALL: | 374 | case OP_CALL: |
375 | case OP_TAILCALL: | 375 | case OP_TAILCALL: |
376 | case OP_TFORLOOP: | ||
377 | return getobjname(L, ci, GETARG_A(i), name); | 376 | return getobjname(L, ci, GETARG_A(i), name); |
377 | case OP_TFORCALL: { | ||
378 | *name = "for iterator"; | ||
379 | return "for iterator"; | ||
380 | } | ||
378 | case OP_GETGLOBAL: | 381 | case OP_GETGLOBAL: |
379 | case OP_SELF: | 382 | case OP_SELF: |
380 | case OP_GETTABUP: | 383 | case OP_GETTABUP: |