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

a different option for the GC

Browse Source
This commit is contained in:
Roberto Ierusalimschy
2004-12-13 10:15:11 -02:00
parent a56d889f72
commit c6254dceff
7 changed files with 21 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
lgc.c
View File

@@ -1,5 +1,5 @@
/*
** $Id: lgc.c,v 2.17 2004/11/24 19:20:21 roberto Exp roberto $
** $Id: lgc.c,v 2.18 2004/12/06 17:53:42 roberto Exp roberto $
** Garbage Collector
** See Copyright Notice in lua.h
*/
@@ -27,6 +27,7 @@
#define GCSWEEPMAX 10
#define GCSWEEPCOST 30
#define GCFINALIZECOST 100
#define GCSTEPMUL 8
#define FIXEDMASK bitmask(FIXEDBIT)
@@ -621,18 +622,17 @@ static l_mem singlestep (lua_State *L) {
void luaC_step (lua_State *L) {
global_State *g = G(L);
l_mem lim = (g->totalbytes - (g->GCthreshold - GCSTEPSIZE)) * g->stepmul;
l_mem lim = (g->totalbytes - (g->GCthreshold - GCSTEPSIZE)) * GCSTEPMUL;
do {
lim -= singlestep(L);
if (g->gcstate == GCSpause)
break;
} while (lim > 0 || !g->incgc);
if (g->incgc)
if (g->gcstate != GCSpause)
g->GCthreshold = g->totalbytes + GCSTEPSIZE; /* - lim/STEPMUL; */
else {
lua_assert(g->totalbytes >= g->estimate);
lua_assert(g->gcstate == GCSpause);
g->GCthreshold = 2*g->estimate;
g->GCthreshold = g->estimate + ((g->estimate/GCDIV) * g->gcpace);
}
}