nik/lush
1
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

details (rests of debug code)

Browse Source
This commit is contained in:
Roberto Ierusalimschy
2001-06-07 11:44:51 -03:00
parent 65c289b046
commit 190ddd431d
2 changed files with 2 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
ldebug.c
View File

@@ -1,5 +1,5 @@
/* /*
** $Id: ldebug.c,v 1.77 2001/06/05 18:17:01 roberto Exp roberto $ ** $Id: ldebug.c,v 1.78 2001/06/06 17:50:36 roberto Exp roberto $
** Debug Interface ** Debug Interface
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@@ -349,10 +349,6 @@ static Instruction luaG_symbexec (const Proto *pt, int lastpc, int reg) {
int a = GETARG_A(i); int a = GETARG_A(i);
int b = 0; int b = 0;
int c = 0; int c = 0;
#undef check
#define check(x) if (!(x)) { \
printf(">>>%d %d %d %d %d %d\n", op, a, b, c, pt->maxstacksize, pt->sizek); \
return 0; }
switch (getOpMode(op)) { switch (getOpMode(op)) {
case iABC: { case iABC: {
b = GETARG_B(i); b = GETARG_B(i);

4
lparser.c
View File

@@ -1,5 +1,5 @@
/* /*
** $Id: lparser.c,v 1.143 2001/06/05 18:17:01 roberto Exp roberto $ ** $Id: lparser.c,v 1.144 2001/06/05 19:27:32 roberto Exp roberto $
** LL(1) Parser and code generator for Lua ** LL(1) Parser and code generator for Lua
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@@ -1227,8 +1227,6 @@ static void chunk (LexState *ls) {
while (!islast && !block_follow(ls->t.token)) { while (!islast && !block_follow(ls->t.token)) {
islast = statement(ls); islast = statement(ls);
optional(ls, l_c(';')); optional(ls, l_c(';'));
if (ls->fs->freereg < ls->fs->nactloc)
printf(">>>>>>> %d %d\n", ls->fs->freereg, ls->fs->nactloc);
lua_assert(ls->fs->freereg >= ls->fs->nactloc); lua_assert(ls->fs->freereg >= ls->fs->nactloc);
ls->fs->freereg = ls->fs->nactloc; /* free registers */ ls->fs->freereg = ls->fs->nactloc; /* free registers */
} }