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

simpler macro 'luaC_condGC' + better 'step' in 'lua_gc' +

Browse Source 
micro bug in 'luaC_checkfinalizer' (current sweep object could be
removed from 'allgc' list)
This commit is contained in:
Roberto Ierusalimschy
2012-05-21 10:18:10 -03:00
parent 2a66b34f72
commit 398811a313
3 changed files with 35 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
lgc.c
View File

@@ -1,5 +1,5 @@
/*
** $Id: lgc.c,v 2.122 2012/05/14 17:52:56 roberto Exp roberto $
** $Id: lgc.c,v 2.123 2012/05/20 20:36:44 roberto Exp roberto $
** Garbage Collector
** See Copyright Notice in lua.h
*/
@@ -863,11 +863,18 @@ void luaC_checkfinalizer (lua_State *L, GCObject *o, Table *mt) {
return; /* nothing to be done */
else { /* move 'o' to 'finobj' list */
GCObject **p;
for (p = &g->allgc; *p != o; p = &gch(*p)->next) ;
*p = gch(o)->next; /* remove 'o' from root list */
gch(o)->next = g->finobj; /* link it in list 'finobj' */
GCheader *ho = gch(o);
/* avoid removing current sweep object */
if (g->gcstate == GCSsweep && g->sweepgc == &ho->next) {
/* step to next object in the list */
g->sweepgc = (ho->next == NULL) ? NULL : &gch(ho->next)->next;
}
/* search for pointer pointing to 'o' */
for (p = &g->allgc; *p != o; p = &gch(*p)->next) { /* empty */ }
*p = ho->next; /* remove 'o' from root list */
ho->next = g->finobj; /* link it in list 'finobj' */
g->finobj = o;
l_setbit(gch(o)->marked, SEPARATED); /* mark it as such */
l_setbit(ho->marked, SEPARATED); /* mark it as such */
resetoldbit(o); /* see MOVE OLD rule */
}
}
@@ -1085,7 +1092,7 @@ static void step (lua_State *L) {
/*
** performs a basic GC step
*/
void luaC_step (lua_State *L) {
void luaC_forcestep (lua_State *L) {
global_State *g = G(L);
int i;
if (isgenerational(g)) generationalcollection(L);
@@ -1096,6 +1103,17 @@ void luaC_step (lua_State *L) {
}
/*
** performs a basic GC step only if collector is running
*/
void luaC_step (lua_State *L) {
global_State *g = G(L);
if (g->gcrunning) luaC_forcestep(L);
else luaE_setdebt(g, -GCSTEPSIZE); /* avoid being called too often */
}
/*
** performs a full GC cycle; if "isemergency", does not call
** finalizers (which could change stack positions)