mirrors/lua
1
0
Fork 0
mirror of https://github.com/lua/lua synced 2024-12-26 20:29:43 +03:00
Code Issues 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
Show Stats 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
** 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 b = 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)) {
case iABC: {
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
** See Copyright Notice in lua.h
*/
@ -1227,8 +1227,6 @@ static void chunk (LexState *ls) {
while (!islast && !block_follow(ls->t.token)) {
islast = statement(ls);
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);
ls->fs->freereg = ls->fs->nactloc; /* free registers */
}