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

compensate for 'GCSTEPSIZE' in GC steps

Browse Source
This commit is contained in:
Roberto Ierusalimschy
2012-05-23 12:42:27 -03:00
parent e131eb0d9a
commit 21ed264a38
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lapi.c
View File

@@ -1,5 +1,5 @@
/* /*
** $Id: lapi.c,v 2.161 2012/05/21 13:18:10 roberto Exp roberto $ ** $Id: lapi.c,v 2.162 2012/05/22 17:50:39 roberto Exp roberto $
** Lua API ** Lua API
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@@ -1049,7 +1049,7 @@ LUA_API int lua_gc (lua_State *L, int what, int data) {
luaC_forcestep(L); /* do a single step */ luaC_forcestep(L); /* do a single step */
} }
else { else {
lu_mem debt = cast(lu_mem, data) * 1024; /* count in Kbytes */ lu_mem debt = cast(lu_mem, data) * 1024 - GCSTEPSIZE;
if (g->gcrunning) if (g->gcrunning)
debt += g->GCdebt; /* include current debt */ debt += g->GCdebt; /* include current debt */
luaE_setdebt(g, debt); luaE_setdebt(g, debt);