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

more robust treatment of GC tag methods (now they can create new

Browse Source 
objects while running...)
This commit is contained in:
Roberto Ierusalimschy
2001-06-12 15:43:13 -03:00
parent 89c301d180
commit 89e8303f4e
3 changed files with 16 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
lstate.c
View File

@@ -1,5 +1,5 @@
/*
** $Id: lstate.c,v 1.62 2001/04/17 17:35:54 roberto Exp roberto $
** $Id: lstate.c,v 1.63 2001/06/06 18:00:19 roberto Exp roberto $
** Global State
** See Copyright Notice in lua.h
*/
@@ -112,11 +112,14 @@ static void close_state (lua_State *L, lua_State *OL) {
L->next->previous = L->previous;
}
else if (G(L)) { /* last thread; close global state */
luaC_collect(L, 1); /* collect all elements */
while (G(L)->rootudata) {
luaC_collectudata(L); /* collect all user data */
luaC_callgcTMudata(L); /* call their tag methods */
} /* repeat, as tag methods may create new userdata objects */
luaC_collect(L, 1); /* collect all other elements */
lua_assert(G(L)->rootproto == NULL);
lua_assert(G(L)->rootcl == NULL);
lua_assert(G(L)->roottable == NULL);
lua_assert(G(L)->rootudata == NULL);
luaS_freeall(L);
luaM_freearray(L, G(L)->TMtable, G(L)->sizeTM, struct TM);
luaM_freearray(L, G(L)->Mbuffer, G(L)->Mbuffsize, l_char);