|
@@ -1,5 +1,5 @@
|
|
/*
|
|
/*
|
|
-** $Id: lgc.c,v 2.209 2015/11/02 18:48:07 roberto Exp roberto $
|
|
|
|
|
|
+** $Id: lgc.c,v 2.210 2015/11/03 18:10:44 roberto Exp roberto $
|
|
** Garbage Collector
|
|
** Garbage Collector
|
|
** See Copyright Notice in lua.h
|
|
** See Copyright Notice in lua.h
|
|
*/
|
|
*/
|
|
@@ -856,10 +856,10 @@ static int runafewfinalizers (lua_State *L) {
|
|
/*
|
|
/*
|
|
** call all pending finalizers
|
|
** call all pending finalizers
|
|
*/
|
|
*/
|
|
-static void callallpendingfinalizers (lua_State *L, int propagateerrors) {
|
|
|
|
|
|
+static void callallpendingfinalizers (lua_State *L) {
|
|
global_State *g = G(L);
|
|
global_State *g = G(L);
|
|
while (g->tobefnz)
|
|
while (g->tobefnz)
|
|
- GCTM(L, propagateerrors);
|
|
|
|
|
|
+ GCTM(L, 0);
|
|
}
|
|
}
|
|
|
|
|
|
|
|
|
|
@@ -971,7 +971,7 @@ void luaC_freeallobjects (lua_State *L) {
|
|
global_State *g = G(L);
|
|
global_State *g = G(L);
|
|
separatetobefnz(g, 1); /* separate all objects with finalizers */
|
|
separatetobefnz(g, 1); /* separate all objects with finalizers */
|
|
lua_assert(g->finobj == NULL);
|
|
lua_assert(g->finobj == NULL);
|
|
- callallpendingfinalizers(L, 0);
|
|
|
|
|
|
+ callallpendingfinalizers(L);
|
|
lua_assert(g->tobefnz == NULL);
|
|
lua_assert(g->tobefnz == NULL);
|
|
g->currentwhite = WHITEBITS; /* this "white" makes all objects look dead */
|
|
g->currentwhite = WHITEBITS; /* this "white" makes all objects look dead */
|
|
g->gckind = KGC_NORMAL;
|
|
g->gckind = KGC_NORMAL;
|