diff options
Diffstat (limited to 'lgc.c')
-rw-r--r-- | lgc.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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 */ |