lgc.h 文件参考

#include "lobject.h"
#include "lstate.h"

lgc.h 的引用(Include)关系图:

此图展示该文件直接或间接的被哪些文件引用了:

浏览源代码.

宏定义
#define	GCSpropagate   0
#define	GCSenteratomic   1
#define	GCSatomic   2
#define	GCSswpallgc   3
#define	GCSswpfinobj   4
#define	GCSswptobefnz   5
#define	GCSswpend   6
#define	GCScallfin   7
#define	GCSpause   8
#define	issweepphase(g)   (GCSswpallgc <= (g)->gcstate && (g)->gcstate <= GCSswpend)
#define	keepinvariant(g)   ((g)->gcstate <= GCSatomic)
#define	resetbits(x, m)   ((x) &= cast_byte(~(m)))
#define	setbits(x, m)   ((x) |= (m))
#define	testbits(x, m)   ((x) & (m))
#define	bitmask(b)   (1<<(b))
#define	bit2mask(b1, b2)   (bitmask(b1) | bitmask(b2))
#define	l_setbit(x, b)   setbits(x, bitmask(b))
#define	resetbit(x, b)   resetbits(x, bitmask(b))
#define	testbit(x, b)   testbits(x, bitmask(b))
#define	WHITE0BIT   3 /* object is white (type 0) */
#define	WHITE1BIT   4 /* object is white (type 1) */
#define	BLACKBIT   5 /* object is black */
#define	FINALIZEDBIT   6 /* object has been marked for finalization */
#define	TESTBIT   7
#define	WHITEBITS   bit2mask(WHITE0BIT, WHITE1BIT)
#define	iswhite(x)   testbits((x)->marked, WHITEBITS)
#define	isblack(x)   testbit((x)->marked, BLACKBIT)
#define	isgray(x)
#define	tofinalize(x)   testbit((x)->marked, FINALIZEDBIT)
#define	otherwhite(g)   ((g)->currentwhite ^ WHITEBITS)
#define	isdeadm(ow, m)   ((m) & (ow))
#define	isdead(g, v)   isdeadm(otherwhite(g), (v)->marked)
#define	changewhite(x)   ((x)->marked ^= WHITEBITS)
#define	nw2black(x)   check_exp(!iswhite(x), l_setbit((x)->marked, BLACKBIT))
#define	luaC_white(g)   cast_byte((g)->currentwhite & WHITEBITS)
#define	G_NEW   0 /* created in current cycle */
#define	G_SURVIVAL   1 /* created in previous cycle */
#define	G_OLD0   2 /* marked old by frw. barrier in this cycle */
#define	G_OLD1   3 /* first full cycle as old */
#define	G_OLD   4 /* really old object (not to be visited) */
#define	G_TOUCHED1   5 /* old object touched this cycle */
#define	G_TOUCHED2   6 /* old object touched in previous cycle */
#define	AGEBITS   7 /* all age bits (111) */
#define	getage(o)   ((o)->marked & AGEBITS)
#define	setage(o, a)   ((o)->marked = cast_byte(((o)->marked & (~AGEBITS)) | a))
#define	isold(o)   (getage(o) > G_SURVIVAL)
#define	changeage(o, f, t)   check_exp(getage(o) == (f), (o)->marked ^= ((f)^(t)))
#define	LUAI_GENMAJORMUL   100
#define	LUAI_GENMINORMUL   20
#define	LUAI_GCPAUSE   200
#define	getgcparam(p)   ((p) * 4)
#define	setgcparam(p, v)   ((p) = (v) / 4)
#define	LUAI_GCMUL   100
#define	LUAI_GCSTEPSIZE   13 /* 8 KB */
#define	isdecGCmodegen(g)   (g->gckind == KGC_GEN || g->lastatomic != 0)
#define	luaC_condGC(L, pre, pos)
#define	luaC_checkGC(L)   luaC_condGC(L,(void)0,(void)0)
#define	luaC_barrier(L, p, v)
#define	luaC_barrierback(L, p, v)
#define	luaC_objbarrier(L, p, o)

函数
LUAI_FUNC void	luaC_fix (lua_State *L, GCObject *o)
LUAI_FUNC void	luaC_freeallobjects (lua_State *L)
LUAI_FUNC void	luaC_step (lua_State *L)
LUAI_FUNC void	luaC_runtilstate (lua_State *L, int statesmask)
LUAI_FUNC void	luaC_fullgc (lua_State *L, int isemergency)
LUAI_FUNC GCObject *	luaC_newobj (lua_State *L, int tt, size_t sz)
LUAI_FUNC void	luaC_barrier_ (lua_State *L, GCObject *o, GCObject *v)
LUAI_FUNC void	luaC_barrierback_ (lua_State *L, GCObject *o)
LUAI_FUNC void	luaC_checkfinalizer (lua_State *L, GCObject *o, Table *mt)
LUAI_FUNC void	luaC_changemode (lua_State *L, int newmode)

宏定义说明

AGEBITS

#define AGEBITS   7 /* all age bits (111) */

bit2mask

#define bit2mask	(		b1,
			b2
	)		(bitmask(b1) | bitmask(b2))

bitmask

#define bitmask

(

b

)

(1<<(b))

BLACKBIT

#define BLACKBIT   5 /* object is black */

changeage

#define changeage	(		o,
			f,
			t
	)		check_exp(getage(o) == (f), (o)->marked ^= ((f)^(t)))

changewhite

#define changewhite

(

x

)

((x)->marked ^= WHITEBITS)

FINALIZEDBIT

#define FINALIZEDBIT   6 /* object has been marked for finalization */

G_NEW

#define G_NEW   0 /* created in current cycle */

G_OLD

#define G_OLD   4 /* really old object (not to be visited) */

G_OLD0

#define G_OLD0   2 /* marked old by frw. barrier in this cycle */

G_OLD1

#define G_OLD1   3 /* first full cycle as old */

G_SURVIVAL

#define G_SURVIVAL   1 /* created in previous cycle */

G_TOUCHED1

#define G_TOUCHED1   5 /* old object touched this cycle */

G_TOUCHED2

#define G_TOUCHED2   6 /* old object touched in previous cycle */

GCSatomic

#define GCSatomic   2

GCScallfin

#define GCScallfin   7

GCSenteratomic

#define GCSenteratomic   1

GCSpause

#define GCSpause   8

GCSpropagate

#define GCSpropagate   0

GCSswpallgc

#define GCSswpallgc   3

GCSswpend

#define GCSswpend   6

GCSswpfinobj

#define GCSswpfinobj   4

GCSswptobefnz

#define GCSswptobefnz   5

getage

#define getage

(

o

)

((o)->marked & AGEBITS)

getgcparam

#define getgcparam

(

p

)

((p) * 4)

isblack

#define isblack

(

x

)

testbit((x)->marked, BLACKBIT)

isdead

#define isdead	(		g,
			v
	)		isdeadm(otherwhite(g), (v)->marked)

isdeadm

#define isdeadm	(		ow,
			m
	)		((m) & (ow))

isdecGCmodegen

#define isdecGCmodegen

(

g

)

(g->gckind == KGC_GEN || g->lastatomic != 0)

isgray

#define isgray

(

x

)

值:

    /* neither white nor black */  \
    (!testbits((x)->marked, WHITEBITS | bitmask(BLACKBIT)))

isold

#define isold

(

o

)

(getage(o) > G_SURVIVAL)

issweepphase

#define issweepphase

(

g

)

(GCSswpallgc <= (g)->gcstate && (g)->gcstate <= GCSswpend)

iswhite

#define iswhite

(

x

)

testbits((x)->marked, WHITEBITS)

keepinvariant

#define keepinvariant

(

g

)

((g)->gcstate <= GCSatomic)

l_setbit

#define l_setbit	(		x,
			b
	)		setbits(x, bitmask(b))

luaC_barrier

#define luaC_barrier	(		L,
			p,
			v
	)

值:

    (  \
    (iscollectable(v) && isblack(p) && iswhite(gcvalue(v))) ?  \
    luaC_barrier_(L,obj2gco(p),gcvalue(v)) : cast_void(0))

luaC_barrierback

#define luaC_barrierback	(		L,
			p,
			v
	)

值:

    (  \
    (iscollectable(v) && isblack(p) && iswhite(gcvalue(v))) ? \
    luaC_barrierback_(L,p) : cast_void(0))

luaC_checkGC

#define luaC_checkGC

(

L

)

luaC_condGC(L,(void)0,(void)0)

luaC_condGC

#define luaC_condGC	(		L,
			pre,
			pos
	)

值:

    { if (G(L)->GCdebt > 0) { pre; luaC_step(L); pos;}; \
      condchangemem(L,pre,pos); }

luaC_objbarrier

#define luaC_objbarrier	(		L,
			p,
			o
	)

值:

    (  \
    (isblack(p) && iswhite(o)) ? \
    luaC_barrier_(L,obj2gco(p),obj2gco(o)) : cast_void(0))

luaC_white

#define luaC_white

(

g

)

cast_byte((g)->currentwhite & WHITEBITS)

LUAI_GCMUL

#define LUAI_GCMUL   100

LUAI_GCPAUSE

#define LUAI_GCPAUSE   200

LUAI_GCSTEPSIZE

#define LUAI_GCSTEPSIZE   13 /* 8 KB */

LUAI_GENMAJORMUL

#define LUAI_GENMAJORMUL   100

LUAI_GENMINORMUL

#define LUAI_GENMINORMUL   20

nw2black

#define nw2black

(

x

)

check_exp(!iswhite(x), l_setbit((x)->marked, BLACKBIT))

otherwhite

#define otherwhite

(

g

)

((g)->currentwhite ^ WHITEBITS)

resetbit

#define resetbit	(		x,
			b
	)		resetbits(x, bitmask(b))

resetbits

#define resetbits	(		x,
			m
	)		((x) &= cast_byte(~(m)))

setage

#define setage	(		o,
			a
	)		((o)->marked = cast_byte(((o)->marked & (~AGEBITS)) | a))

setbits

#define setbits	(		x,
			m
	)		((x) |= (m))

setgcparam

#define setgcparam	(		p,
			v
	)		((p) = (v) / 4)

testbit

#define testbit	(		x,
			b
	)		testbits(x, bitmask(b))

TESTBIT

#define TESTBIT   7

testbits

#define testbits	(		x,
			m
	)		((x) & (m))

tofinalize

#define tofinalize

(

x

)

testbit((x)->marked, FINALIZEDBIT)

WHITE0BIT

#define WHITE0BIT   3 /* object is white (type 0) */

WHITE1BIT

#define WHITE1BIT   4 /* object is white (type 1) */

WHITEBITS

#define WHITEBITS   bit2mask(WHITE0BIT, WHITE1BIT)

函数说明

luaC_barrier_()

LUAI_FUNC void luaC_barrier_	(	lua_State *	L,
		GCObject *	o,
		GCObject *	v
	)

函数调用图:

luaC_barrierback_()

LUAI_FUNC void luaC_barrierback_	(	lua_State *	L,
		GCObject *	o
	)

luaC_changemode()

LUAI_FUNC void luaC_changemode	(	lua_State *	L,
		int	newmode
	)

函数调用图:

这是这个函数的调用关系图:

luaC_checkfinalizer()

LUAI_FUNC void luaC_checkfinalizer	(	lua_State *	L,
		GCObject *	o,
		Table *	mt
	)

函数调用图:

这是这个函数的调用关系图:

luaC_fix()

LUAI_FUNC void luaC_fix	(	lua_State *	L,
		GCObject *	o
	)

这是这个函数的调用关系图:

luaC_freeallobjects()

LUAI_FUNC void luaC_freeallobjects

(

lua_State *

L

)

函数调用图:

这是这个函数的调用关系图:

luaC_fullgc()

LUAI_FUNC void luaC_fullgc	(	lua_State *	L,
		int	isemergency
	)

函数调用图:

这是这个函数的调用关系图:

luaC_newobj()

LUAI_FUNC GCObject* luaC_newobj	(	lua_State *	L,
		int	tt,
		size_t	sz
	)

这是这个函数的调用关系图:

luaC_runtilstate()

LUAI_FUNC void luaC_runtilstate	(	lua_State *	L,
		int	statesmask
	)

函数调用图:

这是这个函数的调用关系图:

luaC_step()

LUAI_FUNC void luaC_step

(

lua_State *

L

)

函数调用图:

这是这个函数的调用关系图: