diff options
Diffstat (limited to 'ltests.c')
| -rw-r--r-- | ltests.c | 9 |
1 files changed, 5 insertions, 4 deletions
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: ltests.c,v 1.29 2000/06/30 19:17:08 roberto Exp roberto $ | 2 | ** $Id: ltests.c,v 1.30 2000/08/04 19:38:35 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 | */ |
| @@ -16,6 +16,7 @@ | |||
| 16 | #include "lapi.h" | 16 | #include "lapi.h" |
| 17 | #include "lauxlib.h" | 17 | #include "lauxlib.h" |
| 18 | #include "lcode.h" | 18 | #include "lcode.h" |
| 19 | #include "ldebug.h" | ||
| 19 | #include "ldo.h" | 20 | #include "ldo.h" |
| 20 | #include "lfunc.h" | 21 | #include "lfunc.h" |
| 21 | #include "lmem.h" | 22 | #include "lmem.h" |
| @@ -68,9 +69,9 @@ static int pushop (Proto *p, int pc) { | |||
| 68 | Instruction i = p->code[pc]; | 69 | Instruction i = p->code[pc]; |
| 69 | OpCode o = GET_OPCODE(i); | 70 | OpCode o = GET_OPCODE(i); |
| 70 | const char *name = instrname[o]; | 71 | const char *name = instrname[o]; |
| 71 | int *line = p->lines; | 72 | int *lineinfo = p->lineinfo; |
| 72 | if (line) | 73 | if (lineinfo) |
| 73 | sprintf(buff, "%5d - ", line[pc]); | 74 | sprintf(buff, "%5d - ", luaG_getline(lineinfo, pc, 1, NULL)); |
| 74 | else | 75 | else |
| 75 | strcpy(buff, " "); | 76 | strcpy(buff, " "); |
| 76 | switch ((enum Mode)luaK_opproperties[o].mode) { | 77 | switch ((enum Mode)luaK_opproperties[o].mode) { |
