diff options
Diffstat (limited to 'ltests.c')
-rw-r--r-- | ltests.c | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: ltests.c,v 2.155 2013/09/05 19:31:49 roberto Exp roberto $ | 2 | ** $Id: ltests.c,v 2.156 2013/09/11 12:26:14 roberto Exp roberto $ |
3 | ** Internal Module for Debugging of the Lua Implementation | 3 | ** Internal Module for Debugging of the Lua Implementation |
4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
5 | */ | 5 | */ |
@@ -469,8 +469,8 @@ int lua_checkmemory (lua_State *L) { | |||
469 | /* check 'tobefnz' list */ | 469 | /* check 'tobefnz' list */ |
470 | checkgray(g, g->tobefnz); | 470 | checkgray(g, g->tobefnz); |
471 | for (o = g->tobefnz; o != NULL; o = gch(o)->next) { | 471 | for (o = g->tobefnz; o != NULL; o = gch(o)->next) { |
472 | lua_assert(!iswhite(o) || g->gcstate == GCSpause); | 472 | checkobject(g, o, 0); |
473 | lua_assert(!isdead(g, o) && tofinalize(o)); | 473 | lua_assert(tofinalize(o)); |
474 | lua_assert(gch(o)->tt == LUA_TUSERDATA || gch(o)->tt == LUA_TTABLE); | 474 | lua_assert(gch(o)->tt == LUA_TUSERDATA || gch(o)->tt == LUA_TTABLE); |
475 | } | 475 | } |
476 | return 0; | 476 | return 0; |
@@ -650,8 +650,8 @@ static int gc_local (lua_State *L) { | |||
650 | 650 | ||
651 | static int gc_state (lua_State *L) { | 651 | static int gc_state (lua_State *L) { |
652 | static const char *statenames[] = {"propagate", "atomic", | 652 | static const char *statenames[] = {"propagate", "atomic", |
653 | "sweeplocal", "sweeplocfin", "sweepfin", "sweepall", "sweepmainth", | 653 | "sweeplocal", "sweeplocfin", "sweepfin", "sweepall", "sweeptobefnz", |
654 | "pause", ""}; | 654 | "sweepmainth", "pause", ""}; |
655 | int option = luaL_checkoption(L, 1, "", statenames); | 655 | int option = luaL_checkoption(L, 1, "", statenames); |
656 | if (option == GCSpause + 1) { | 656 | if (option == GCSpause + 1) { |
657 | lua_pushstring(L, statenames[G(L)->gcstate]); | 657 | lua_pushstring(L, statenames[G(L)->gcstate]); |