aboutsummaryrefslogtreecommitdiff
path: root/ltests.c
diff options
context:
space:
mode:
Diffstat (limited to 'ltests.c')
-rw-r--r--ltests.c10
1 files changed, 5 insertions, 5 deletions
diff --git a/ltests.c b/ltests.c
index 7e275a3b..1db957cc 100644
--- a/ltests.c
+++ b/ltests.c
@@ -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
651static int gc_state (lua_State *L) { 651static 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]);