|
@ -1,5 +1,5 @@ |
|
|
/*
|
|
|
/*
|
|
|
** $Id: ltests.c,v 2.96 2010/04/19 16:38:25 roberto Exp roberto $ |
|
|
** $Id: ltests.c,v 2.97 2010/04/29 17:33:51 roberto Exp roberto $ |
|
|
** Internal Module for Debugging of the Lua Implementation |
|
|
** Internal Module for Debugging of the Lua Implementation |
|
|
** See Copyright Notice in lua.h |
|
|
** See Copyright Notice in lua.h |
|
|
*/ |
|
|
*/ |
|
@ -367,8 +367,6 @@ static void checkgraylist (GCObject *l) { |
|
|
while (l) { |
|
|
while (l) { |
|
|
lua_assert(isgray(l)); |
|
|
lua_assert(isgray(l)); |
|
|
lua_assert(!testbit(l->gch.marked, GRAYBIT)); |
|
|
lua_assert(!testbit(l->gch.marked, GRAYBIT)); |
|
|
//if (testbit(l->gch.marked, GRAYBIT))
|
|
|
|
|
|
// printf("%s (%02x) %p\n", ttypename(l->gch.tt), l->gch.marked, l);
|
|
|
|
|
|
l->gch.marked = l_setbit(l->gch.marked, GRAYBIT); |
|
|
l->gch.marked = l_setbit(l->gch.marked, GRAYBIT); |
|
|
switch (gch(l)->tt) { |
|
|
switch (gch(l)->tt) { |
|
|
case LUA_TTABLE: l = gco2t(l)->gclist; break; |
|
|
case LUA_TTABLE: l = gco2t(l)->gclist; break; |
|
|