1 files changed, 2 insertions, 2 deletions
diff --git a/lgc.c b/lgc.c
index 05991bd8..65182650 100644
--- a/lgc.c
+++ b/lgc.c
@@ -1,5 +1,5 @@
 /*
-** $Id: lgc.c,v 2.94 2010/05/10 18:23:45 roberto Exp roberto $
+** $Id: lgc.c,v 2.95 2010/05/11 20:49:26 roberto Exp roberto $
 ** Garbage Collector
 ** See Copyright Notice in lua.h
 */
@@ -692,7 +692,7 @@ static void GCTM (lua_State *L, int propagateerrors) {
    lu_byte oldah = L->allowhook;
    lu_mem oldd = g->GCdebt;
    L->allowhook = 0;  /* stop debug hooks during GC tag method */
-    g->GCdebt = -2 * g->totalbytes;  /* avoid GC steps */
+    stopgc(g);  /* avoid GC steps */
    setobj2s(L, L->top, tm);  /* push finalizer... */
    setuvalue(L, L->top+1, udata);  /* ... and its argument */
    L->top += 2;  /* and (next line) call the finalizer */

diff --git a/lgc.c b/lgc.c index 05991bd8..65182650 100644 --- a/lgc.c +++ b/lgc.c
@@ -1,5 +1,5 @@
1	/*	1	/*
2	** $Id: lgc.c,v 2.94 2010/05/10 18:23:45 roberto Exp roberto $	2	** $Id: lgc.c,v 2.95 2010/05/11 20:49:26 roberto Exp roberto $
3	** Garbage Collector	3	** Garbage Collector
4	** See Copyright Notice in lua.h	4	** See Copyright Notice in lua.h
5	*/	5	*/
@@ -692,7 +692,7 @@ static void GCTM (lua_State *L, int propagateerrors) {
692	lu_byte oldah = L->allowhook;	692	lu_byte oldah = L->allowhook;
693	lu_mem oldd = g->GCdebt;	693	lu_mem oldd = g->GCdebt;
694	L->allowhook = 0; /* stop debug hooks during GC tag method */	694	L->allowhook = 0; /* stop debug hooks during GC tag method */
695	g->GCdebt = -2 * g->totalbytes; /* avoid GC steps */	695	stopgc(g); /* avoid GC steps */
696	setobj2s(L, L->top, tm); /* push finalizer... */	696	setobj2s(L, L->top, tm); /* push finalizer... */
697	setuvalue(L, L->top+1, udata); /* ... and its argument */	697	setuvalue(L, L->top+1, udata); /* ... and its argument */
698	L->top += 2; /* and (next line) call the finalizer */	698	L->top += 2; /* and (next line) call the finalizer */