diff options
Diffstat (limited to 'ltests.c')
-rw-r--r-- | ltests.c | 7 |
1 files changed, 4 insertions, 3 deletions
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: ltests.c,v 2.244 2018/06/11 14:19:50 roberto Exp roberto $ | 2 | ** $Id: ltests.c,v 2.246 2018/06/26 18:00:55 roberto Exp roberto $ |
3 | ** Internal Module for Debugging of the Lua Implementation | 3 | ** Internal Module for Debugging of the Lua Implementation |
4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
5 | */ | 5 | */ |
@@ -27,6 +27,7 @@ | |||
27 | #include "lfunc.h" | 27 | #include "lfunc.h" |
28 | #include "lmem.h" | 28 | #include "lmem.h" |
29 | #include "lopcodes.h" | 29 | #include "lopcodes.h" |
30 | #include "lopnames.h" | ||
30 | #include "lstate.h" | 31 | #include "lstate.h" |
31 | #include "lstring.h" | 32 | #include "lstring.h" |
32 | #include "ltable.h" | 33 | #include "ltable.h" |
@@ -523,7 +524,7 @@ int lua_checkmemory (lua_State *L) { | |||
523 | static char *buildop (Proto *p, int pc, char *buff) { | 524 | static char *buildop (Proto *p, int pc, char *buff) { |
524 | Instruction i = p->code[pc]; | 525 | Instruction i = p->code[pc]; |
525 | OpCode o = GET_OPCODE(i); | 526 | OpCode o = GET_OPCODE(i); |
526 | const char *name = luaP_opnames[o]; | 527 | const char *name = opnames[o]; |
527 | int line = luaG_getfuncline(p, pc); | 528 | int line = luaG_getfuncline(p, pc); |
528 | sprintf(buff, "(%4d) %4d - ", line, pc); | 529 | sprintf(buff, "(%4d) %4d - ", line, pc); |
529 | switch (getOpMode(o)) { | 530 | switch (getOpMode(o)) { |
@@ -599,7 +600,7 @@ static int printcode (lua_State *L) { | |||
599 | printf("numparams: %d\n", p->numparams); | 600 | printf("numparams: %d\n", p->numparams); |
600 | for (pc=0; pc<p->sizecode; pc++) { | 601 | for (pc=0; pc<p->sizecode; pc++) { |
601 | char buff[100]; | 602 | char buff[100]; |
602 | printf("%d\t%s\n", pc + 1, buildop(p, pc, buff)); | 603 | printf("%s\n", buildop(p, pc, buff)); |
603 | } | 604 | } |
604 | return 0; | 605 | return 0; |
605 | } | 606 | } |