diff options
author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2001-06-07 11:44:51 -0300 |
---|---|---|
committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2001-06-07 11:44:51 -0300 |
commit | 190ddd431dd9f14148d232ed9a72db482a1df934 (patch) | |
tree | 1ed4e9af6ecdbfc3ff853eacad54e39671b4c2af | |
parent | 65c289b0465f717f907aa31ea7c68cf99e6420bf (diff) | |
download | lua-190ddd431dd9f14148d232ed9a72db482a1df934.tar.gz lua-190ddd431dd9f14148d232ed9a72db482a1df934.tar.bz2 lua-190ddd431dd9f14148d232ed9a72db482a1df934.zip |
details (rests of debug code)
-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 | } |