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

"gray lists" only need to be valid when 'keepinvariant' is true

Browse Source
This commit is contained in:
Roberto Ierusalimschy
2010-04-30 15:37:14 -03:00
parent b9e1dec2cb
commit 4d871ee973
2 changed files with 11 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
lgc.c
View File

@@ -1,5 +1,5 @@
/*
** $Id: lgc.c,v 2.81 2010/04/29 17:32:40 roberto Exp roberto $
** $Id: lgc.c,v 2.82 2010/04/29 21:43:36 roberto Exp roberto $
** Garbage Collector
** See Copyright Notice in lua.h
*/
@@ -23,6 +23,7 @@
#include "ltm.h"
#define GCSTEPSIZE 1024
#define GCSWEEPMAX 40
#define GCSWEEPCOST 1
@@ -288,9 +289,8 @@ static void remarkupvals (global_State *g) {
*/
static void markroot (lua_State *L) {
global_State *g = G(L);
lua_assert(g->gckind == KGC_GEN ||
(g->gray == NULL && g->grayagain == NULL && g->weak == NULL &&
g->allweak == NULL && g->ephemeron == NULL));
g->gray = g->grayagain = NULL;
g->weak = g->allweak = g->ephemeron = NULL;
markobject(g, g->mainthread);
markvalue(g, &g->l_registry);
markmt(g);
@@ -793,11 +793,6 @@ static void atomic (lua_State *L) {
cleartable(g->allweak);
lua_checkmemory(L);
g->currentwhite = cast_byte(otherwhite(g)); /* flip current white */
if (g->gckind != KGC_GEN) {
g->gray = NULL; /* all gray objects will become white */
g->grayagain = NULL;
g->weak = g->ephemeron = g->allweak = NULL;
}
}
@@ -907,7 +902,10 @@ static void step (lua_State *L) {
do { /* always perform at least one single step */
lim -= singlestep(L);
} while (lim > 0 && g->gcstate != GCSpause);
g->GCdebt += (g->gcstate != GCSpause) ? -GCSTEPSIZE : stddebt(g);
if (g->gcstate != GCSpause)
g->GCdebt -= GCSTEPSIZE;
else
g->GCdebt = stddebt(g);
}
@@ -931,9 +929,6 @@ void luaC_fullgc (lua_State *L, int isemergency) {
(as white has not changed, nothing will be collected) */
g->sweepstrgc = 0;
g->gcstate = GCSsweepstring;
g->gray = NULL;
g->grayagain = NULL;
g->weak = g->ephemeron = g->allweak = NULL;
}
/* finish any pending sweep phase */
luaC_runtilstate(L, bit2mask(GCSpause, GCSfinalize));