mirrors/lua
1
0
Fork 0
mirror of https://github.com/lua/lua synced 2025-04-05 12:33:23 +03:00
Code Issues Packages Projects Releases Wiki Activity

more options for 'kinds' of Garbage Collection

Browse Source
This commit is contained in:
Roberto Ierusalimschy 2008-02-11 13:45:30 -02:00
parent a76fa25199
commit a73930228a
2 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lstate.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: lstate.c,v 2.41 2007/10/29 16:51:20 roberto Exp roberto $ ** $Id: lstate.c,v 2.42 2007/10/31 15:41:19 roberto Exp roberto $
** Global State ** Global State
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -160,7 +160,7 @@ LUA_API lua_State *lua_newstate (lua_Alloc f, void *ud) {
L->tt = LUA_TTHREAD; L->tt = LUA_TTHREAD;
g->currentwhite = bit2mask(WHITE0BIT, FIXEDBIT); g->currentwhite = bit2mask(WHITE0BIT, FIXEDBIT);
L->marked = luaC_white(g); L->marked = luaC_white(g);
g->emergencygc = 0; g->gckind = KGC_NORMAL;
g->nCcalls = 0; g->nCcalls = 0;
set2bits(L->marked, FIXEDBIT, SFIXEDBIT); set2bits(L->marked, FIXEDBIT, SFIXEDBIT);
preinit_state(L, g); preinit_state(L, g);

9
lstate.h
View File

@ -1,5 +1,5 @@
/* /*
** $Id: lstate.h,v 2.29 2007/10/29 16:51:20 roberto Exp roberto $ ** $Id: lstate.h,v 2.30 2007/10/31 15:41:19 roberto Exp roberto $
** Global State ** Global State
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -34,6 +34,11 @@ struct lua_longjmp; /* defined in ldo.c */
#define BASIC_STACK_SIZE (2*LUA_MINSTACK) #define BASIC_STACK_SIZE (2*LUA_MINSTACK)
/* kinds of Garbage Collection */
#define KGC_NORMAL 0
#define KGC_FORCED 1 /* gc was forced by the program */
#define KGC_EMERGENCY 2 /* gc was forced by an allocation failure */
typedef struct stringtable { typedef struct stringtable {
GCObject **hash; GCObject **hash;
@ -72,7 +77,7 @@ typedef struct global_State {
unsigned short nCcalls; /* number of nested C calls */ unsigned short nCcalls; /* number of nested C calls */
lu_byte currentwhite; lu_byte currentwhite;
lu_byte gcstate; /* state of garbage collector */ lu_byte gcstate; /* state of garbage collector */
lu_byte emergencygc; /* true when collect was trigged by alloc error */ lu_byte gckind; /* kind of GC running */
int sweepstrgc; /* position of sweep in `strt' */ int sweepstrgc; /* position of sweep in `strt' */
GCObject *rootgc; /* list of all collectable objects */ GCObject *rootgc; /* list of all collectable objects */
GCObject **sweepgc; /* position of sweep in `rootgc' */ GCObject **sweepgc; /* position of sweep in `rootgc' */