rusefi
/
lua
mirror of https://github.com/rusefi/lua.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

more secure way to stop GC cycles during finalizers

This commit is contained in:
Roberto Ierusalimschy 2005-02-14 11:19:50 -02:00
parent a9af455b32
commit 73d7640244
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lgc.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: lgc.c,v 2.23 2005/02/10 13:25:02 roberto Exp roberto $ ** $Id: lgc.c,v 2.24 2005/02/11 20:03:35 roberto Exp roberto $
** Garbage Collector ** Garbage Collector
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -461,12 +461,15 @@ static void GCTM (lua_State *L) {
tm = fasttm(L, udata->uv.metatable, TM_GC); tm = fasttm(L, udata->uv.metatable, TM_GC);
if (tm != NULL) { if (tm != NULL) {
lu_byte oldah = L->allowhook; lu_byte oldah = L->allowhook;
lu_mem oldt = g->GCthreshold;
L->allowhook = 0; /* stop debug hooks during GC tag method */ L->allowhook = 0; /* stop debug hooks during GC tag method */
g->GCthreshold = 2*g->totalbytes; /* avoid GC steps */
setobj2s(L, L->top, tm); setobj2s(L, L->top, tm);
setuvalue(L, L->top+1, udata); setuvalue(L, L->top+1, udata);
L->top += 2; L->top += 2;
luaD_call(L, L->top - 2, 0); luaD_call(L, L->top - 2, 0);
L->allowhook = oldah; /* restore hooks */ L->allowhook = oldah; /* restore hooks */
g->GCthreshold = oldt; /* restore threshold */
} }
} }
@ -582,9 +585,7 @@ static l_mem singlestep (lua_State *L) {
} }
case GCSfinalize: { case GCSfinalize: {
if (g->tmudata) { if (g->tmudata) {
g->GCthreshold += GCFINALIZECOST; /* avoid GC steps inside method */
GCTM(L); GCTM(L);
g->GCthreshold -= GCFINALIZECOST; /* correct threshold */
return GCFINALIZECOST; return GCFINALIZECOST;
} }
else { else {