diff options
| -rw-r--r-- | ldebug.c | 6 | ||||
| -rw-r--r-- | lparser.c | 4 |
2 files changed, 2 insertions, 8 deletions
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: ldebug.c,v 1.77 2001/06/05 18:17:01 roberto Exp roberto $ | 2 | ** $Id: ldebug.c,v 1.78 2001/06/06 17:50:36 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 | */ |
| @@ -349,10 +349,6 @@ static Instruction luaG_symbexec (const Proto *pt, int lastpc, int reg) { | |||
| 349 | int a = GETARG_A(i); | 349 | int a = GETARG_A(i); |
| 350 | int b = 0; | 350 | int b = 0; |
| 351 | int c = 0; | 351 | int c = 0; |
| 352 | #undef check | ||
| 353 | #define check(x) if (!(x)) { \ | ||
| 354 | printf(">>>%d %d %d %d %d %d\n", op, a, b, c, pt->maxstacksize, pt->sizek); \ | ||
| 355 | return 0; } | ||
| 356 | switch (getOpMode(op)) { | 352 | switch (getOpMode(op)) { |
| 357 | case iABC: { | 353 | case iABC: { |
| 358 | b = GETARG_B(i); | 354 | b = GETARG_B(i); |
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: lparser.c,v 1.143 2001/06/05 18:17:01 roberto Exp roberto $ | 2 | ** $Id: lparser.c,v 1.144 2001/06/05 19:27:32 roberto Exp roberto $ |
| 3 | ** LL(1) Parser and code generator for Lua | 3 | ** LL(1) Parser and code generator for Lua |
| 4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
| 5 | */ | 5 | */ |
| @@ -1227,8 +1227,6 @@ static void chunk (LexState *ls) { | |||
| 1227 | while (!islast && !block_follow(ls->t.token)) { | 1227 | while (!islast && !block_follow(ls->t.token)) { |
| 1228 | islast = statement(ls); | 1228 | islast = statement(ls); |
| 1229 | optional(ls, l_c(';')); | 1229 | optional(ls, l_c(';')); |
| 1230 | if (ls->fs->freereg < ls->fs->nactloc) | ||
| 1231 | printf(">>>>>>> %d %d\n", ls->fs->freereg, ls->fs->nactloc); | ||
| 1232 | lua_assert(ls->fs->freereg >= ls->fs->nactloc); | 1230 | lua_assert(ls->fs->freereg >= ls->fs->nactloc); |
| 1233 | ls->fs->freereg = ls->fs->nactloc; /* free registers */ | 1231 | ls->fs->freereg = ls->fs->nactloc; /* free registers */ |
| 1234 | } | 1232 | } |
