aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRoberto Ierusalimschy <roberto@inf.puc-rio.br>2001-06-07 11:44:51 -0300
committerRoberto Ierusalimschy <roberto@inf.puc-rio.br>2001-06-07 11:44:51 -0300
commit190ddd431dd9f14148d232ed9a72db482a1df934 (patch)
tree1ed4e9af6ecdbfc3ff853eacad54e39671b4c2af
parent65c289b0465f717f907aa31ea7c68cf99e6420bf (diff)
downloadlua-190ddd431dd9f14148d232ed9a72db482a1df934.tar.gz
lua-190ddd431dd9f14148d232ed9a72db482a1df934.tar.bz2
lua-190ddd431dd9f14148d232ed9a72db482a1df934.zip
details (rests of debug code)
-rw-r--r--ldebug.c6
-rw-r--r--lparser.c4
2 files changed, 2 insertions, 8 deletions
diff --git a/ldebug.c b/ldebug.c
index a5a809bd..dddaa98e 100644
--- a/ldebug.c
+++ b/ldebug.c
@@ -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)) { \
354printf(">>>%d %d %d %d %d %d\n", op, a, b, c, pt->maxstacksize, pt->sizek); \
355return 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);
diff --git a/lparser.c b/lparser.c
index 90cec9c2..bd9b0b0b 100644
--- a/lparser.c
+++ b/lparser.c
@@ -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(';'));
1230if (ls->fs->freereg < ls->fs->nactloc)
1231printf(">>>>>>> %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 }