lgc.h File Reference

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

Go to the source code of this file.

Macros
#define	GCSTEPSIZE   (cast_int(100 * sizeof(TString)))
#define	GCSpropagate   0
#define	GCSatomic   1
#define	GCSsweepstring   2
#define	GCSsweepudata   3
#define	GCSsweep   4
#define	GCSpause   5
#define	issweepphase(g)    (GCSsweepstring <= (g)->gcstate && (g)->gcstate <= GCSsweep)
#define	isgenerational(g)   ((g)->gckind == KGC_GEN)
#define	keepinvariant(g)   (isgenerational(g) || g->gcstate <= GCSatomic)
#define	keepinvariantout(g)
#define	resetbits(x, m)   ((x) &= cast(lu_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   0 /* object is white (type 0) */
#define	WHITE1BIT   1 /* object is white (type 1) */
#define	BLACKBIT   2 /* object is black */
#define	FINALIZEDBIT   3 /* object has been separated for finalization */
#define	SEPARATED   4 /* object is in 'finobj' list or in 'tobefnz' */
#define	FIXEDBIT   5 /* object is fixed (should not be collected) */
#define	OLDBIT   6 /* object is old (only in generational mode) */
#define	WHITEBITS   bit2mask(WHITE0BIT, WHITE1BIT)
#define	iswhite(x)   testbits((x)->gch.marked, WHITEBITS)
#define	isblack(x)   testbit((x)->gch.marked, BLACKBIT)
#define	isgray(x)
#define	isold(x)   testbit((x)->gch.marked, OLDBIT)
#define	resetoldbit(o)   resetbit((o)->gch.marked, OLDBIT)
#define	otherwhite(g)   (g->currentwhite ^ WHITEBITS)
#define	isdeadm(ow, m)   (!(((m) ^ WHITEBITS) & (ow)))
#define	isdead(g, v)   isdeadm(otherwhite(g), (v)->gch.marked)
#define	changewhite(x)   ((x)->gch.marked ^= WHITEBITS)
#define	gray2black(x)   l_setbit((x)->gch.marked, BLACKBIT)
#define	valiswhite(x)   (iscollectable(x) && iswhite(gcvalue(x)))
#define	luaC_white(g)   cast(lu_byte, (g)->currentwhite & WHITEBITS)
#define	luaC_condGC(L, c)    {if (G(L)->GCdebt > 0) {c;}; condchangemem(L);}
#define	luaC_checkGC(L)   luaC_condGC(L, luaC_step(L);)
#define	luaC_barrier(L, p, v)
#define	luaC_barrierback(L, p, v)
#define	luaC_objbarrier(L, p, o)
#define	luaC_objbarrierback(L, p, o)    { if (iswhite(obj2gco(o)) && isblack(obj2gco(p))) luaC_barrierback_(L,p); }
#define	luaC_barrierproto(L, p, c)    { if (isblack(obj2gco(p))) luaC_barrierproto_(L,p,c); }

Functions
LUAI_FUNC void	luaC_freeallobjects (lua_State *L)
LUAI_FUNC void	luaC_step (lua_State *L)
LUAI_FUNC void	luaC_forcestep (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, GCObject **list, int offset)
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_barrierproto_ (lua_State *L, Proto *p, Closure *c)
LUAI_FUNC void	luaC_checkfinalizer (lua_State *L, GCObject *o, Table *mt)
LUAI_FUNC void	luaC_checkupvalcolor (global_State *g, UpVal *uv)
LUAI_FUNC void	luaC_changemode (lua_State *L, int mode)

Macro Definition Documentation

bit2mask

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

Definition at line 80 of file lua-5.2.4/src/lgc.h.

bitmask

#define bitmask

(

b

)

(1<<(b))

Definition at line 79 of file lua-5.2.4/src/lgc.h.

BLACKBIT

#define BLACKBIT   2 /* object is black */

Definition at line 89 of file lua-5.2.4/src/lgc.h.

changewhite

#define changewhite

(

x

)

((x)->gch.marked ^= WHITEBITS)

Definition at line 114 of file lua-5.2.4/src/lgc.h.

FINALIZEDBIT

#define FINALIZEDBIT   3 /* object has been separated for finalization */

Definition at line 90 of file lua-5.2.4/src/lgc.h.

FIXEDBIT

#define FIXEDBIT   5 /* object is fixed (should not be collected) */

Definition at line 92 of file lua-5.2.4/src/lgc.h.

GCSatomic

#define GCSatomic   1

Definition at line 40 of file lua-5.2.4/src/lgc.h.

Referenced by atomic(), singlestep(), singlestep(), traverseephemeron(), traversestack(), traversethread(), and traverseweakvalue().

GCSpause

#define GCSpause   5

Definition at line 44 of file lua-5.2.4/src/lgc.h.

GCSpropagate

#define GCSpropagate   0

Definition at line 39 of file lua-5.2.4/src/lgc.h.

GCSsweep

#define GCSsweep   4

Definition at line 43 of file lua-5.2.4/src/lgc.h.

GCSsweepstring

#define GCSsweepstring   2

Definition at line 41 of file lua-5.2.4/src/lgc.h.

GCSsweepudata

#define GCSsweepudata   3

Definition at line 42 of file lua-5.2.4/src/lgc.h.

Referenced by singlestep().

GCSTEPSIZE

#define GCSTEPSIZE   (cast_int(100 * sizeof(TString)))

Definition at line 32 of file lua-5.2.4/src/lgc.h.

gray2black

#define gray2black

(

x

)

l_setbit((x)->gch.marked, BLACKBIT)

Definition at line 115 of file lua-5.2.4/src/lgc.h.

isblack

#define isblack

(

x

)

testbit((x)->gch.marked, BLACKBIT)

Definition at line 100 of file lua-5.2.4/src/lgc.h.

isdead

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

Definition at line 112 of file lua-5.2.4/src/lgc.h.

isdeadm

#define isdeadm	(		ow,
			m )   (!(((m) ^ WHITEBITS) & (ow)))

Definition at line 111 of file lua-5.2.4/src/lgc.h.

Referenced by sweeplist(), sweeplist(), and sweeplist().

isgenerational

#define isgenerational

(

g

)

((g)->gckind == KGC_GEN)

Definition at line 50 of file lua-5.2.4/src/lgc.h.

Referenced by luaC_forcestep(), singlestep(), and sweeplist().

isgray

#define isgray

(

x

)

Value:

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

Definition at line 101 of file lua-5.2.4/src/lgc.h.

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

isold

#define isold

(

x

)

testbit((x)->gch.marked, OLDBIT)

Definition at line 104 of file lua-5.2.4/src/lgc.h.

Referenced by correctgraylist(), luaC_barrier_(), luaC_barrierback_(), luaF_findupval(), remarkupvals(), sweepgen(), traversethread(), and udata2finalize().

issweepphase

#define issweepphase

(

g

)

(GCSsweepstring <= (g)->gcstate && (g)->gcstate <= GCSsweep)

Definition at line 47 of file lua-5.2.4/src/lgc.h.

#define issweepphase(g)  \
    (GCSsweepstring <= (g)->gcstate && (g)->gcstate <= GCSsweep)

Referenced by luaC_barrier_(), luaC_checkfinalizer(), luaC_checkupvalcolor(), udata2finalize(), and udata2finalize().

iswhite

#define iswhite

(

x

)

testbits((x)->gch.marked, WHITEBITS)

Definition at line 99 of file lua-5.2.4/src/lgc.h.

keepinvariant

#define keepinvariant

(

g

)

(isgenerational(g) || g->gcstate <= GCSatomic)

Definition at line 61 of file lua-5.2.4/src/lgc.h.

Referenced by fullinc(), luaC_barrier_(), luaC_checkupvalcolor(), luaC_fullgc(), and luaC_upvalbarrier_().

keepinvariantout

#define keepinvariantout

(

g

)

Value:

  check_exp(g->gcstate == GCSpropagate || !isgenerational(g),  \
            g->gcstate <= GCSatomic)

Definition at line 68 of file lua-5.2.4/src/lgc.h.

#define keepinvariantout(g)  \
  check_exp(g->gcstate == GCSpropagate || !isgenerational(g),  \
            g->gcstate <= GCSatomic)

Referenced by luaC_barrier_(), luaC_checkfinalizer(), and udata2finalize().

l_setbit

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

Definition at line 81 of file lua-5.2.4/src/lgc.h.

luaC_barrier

#define luaC_barrier	(		L,
			p,
			v )

Value:

    { if (valiswhite(v) && isblack(obj2gco(p)))  \
    luaC_barrier_(L,obj2gco(p),gcvalue(v)); }

Definition at line 127 of file lua-5.2.4/src/lgc.h.

#define luaC_barrier(L,p,v) { if (valiswhite(v) && isblack(obj2gco(p)))  \
    luaC_barrier_(L,obj2gco(p),gcvalue(v)); }

luaC_barrierback

#define luaC_barrierback	(		L,
			p,
			v )

Value:

    { if (valiswhite(v) && isblack(obj2gco(p)))  \
    luaC_barrierback_(L,p); }

Definition at line 130 of file lua-5.2.4/src/lgc.h.

#define luaC_barrierback(L,p,v) { if (valiswhite(v) && isblack(obj2gco(p)))  \
    luaC_barrierback_(L,p); }

Referenced by aux_rawset(), lua_rawset(), lua_rawseti(), lua_rawseti(), lua_rawsetp(), lua_setiuservalue(), luaH_newkey(), luaH_newkey(), luaV_execute(), luaV_execute(), luaV_finishset(), luaV_finishset(), and luaV_settable().

luaC_barrierproto

#define luaC_barrierproto	(		L,
			p,
			c )    { if (isblack(obj2gco(p))) luaC_barrierproto_(L,p,c); }

Definition at line 140 of file lua-5.2.4/src/lgc.h.

#define luaC_barrierproto(L,p,c) \
   { if (isblack(obj2gco(p))) luaC_barrierproto_(L,p,c); }

Referenced by pushclosure().

luaC_checkGC

#define luaC_checkGC

(

L

)

luaC_condGC(L, luaC_step(L);)

Definition at line 124 of file lua-5.2.4/src/lgc.h.

luaC_condGC

#define luaC_condGC	(		L,
			c )    {if (G(L)->GCdebt > 0) {c;}; condchangemem(L);}

Definition at line 122 of file lua-5.2.4/src/lgc.h.

#define luaC_condGC(L,c) \
    {if (G(L)->GCdebt > 0) {c;}; condchangemem(L);}

luaC_objbarrier

#define luaC_objbarrier	(		L,
			p,
			o )

Value:

    { if (iswhite(obj2gco(o)) && isblack(obj2gco(p))) \
        luaC_barrier_(L,obj2gco(p),obj2gco(o)); }

Definition at line 133 of file lua-5.2.4/src/lgc.h.

#define luaC_objbarrier(L,p,o)  \
    { if (iswhite(obj2gco(o)) && isblack(obj2gco(p))) \
        luaC_barrier_(L,obj2gco(p),obj2gco(o)); }

luaC_objbarrierback

#define luaC_objbarrierback	(		L,
			p,
			o )    { if (iswhite(obj2gco(o)) && isblack(obj2gco(p))) luaC_barrierback_(L,p); }

Definition at line 137 of file lua-5.2.4/src/lgc.h.

#define luaC_objbarrierback(L,p,o)  \
   { if (iswhite(obj2gco(o)) && isblack(obj2gco(p))) luaC_barrierback_(L,p); }

Referenced by lua_setmetatable().

luaC_white

#define luaC_white

(

g

)

cast(lu_byte, (g)->currentwhite & WHITEBITS)

Definition at line 119 of file lua-5.2.4/src/lgc.h.

OLDBIT

#define OLDBIT   6 /* object is old (only in generational mode) */

Definition at line 93 of file lua-5.2.4/src/lgc.h.

Referenced by sweeplist().

otherwhite

#define otherwhite

(

g

)

(g->currentwhite ^ WHITEBITS)

Definition at line 110 of file lua-5.2.4/src/lgc.h.

resetbit

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

Definition at line 82 of file lua-5.2.4/src/lgc.h.

resetbits

#define resetbits	(		x,
			m )   ((x) &= cast(lu_byte, ~(m)))

Definition at line 76 of file lua-5.2.4/src/lgc.h.

resetoldbit

#define resetoldbit

(

o

)

resetbit((o)->gch.marked, OLDBIT)

Definition at line 108 of file lua-5.2.4/src/lgc.h.

Referenced by callallpendingfinalizers(), luaC_checkfinalizer(), luaC_checkupvalcolor(), and luaS_resize().

SEPARATED

#define SEPARATED   4 /* object is in 'finobj' list or in 'tobefnz' */

Definition at line 91 of file lua-5.2.4/src/lgc.h.

Referenced by luaC_checkfinalizer(), separatetobefnz(), and udata2finalize().

setbits

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

Definition at line 77 of file lua-5.2.4/src/lgc.h.

testbit

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

Definition at line 83 of file lua-5.2.4/src/lgc.h.

testbits

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

Definition at line 78 of file lua-5.2.4/src/lgc.h.

valiswhite

#define valiswhite

(

x

)

(iscollectable(x) && iswhite(gcvalue(x)))

Definition at line 117 of file lua-5.2.4/src/lgc.h.

WHITE0BIT

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

Definition at line 87 of file lua-5.2.4/src/lgc.h.

WHITE1BIT

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

Definition at line 88 of file lua-5.2.4/src/lgc.h.

WHITEBITS

#define WHITEBITS   bit2mask(WHITE0BIT, WHITE1BIT)

Definition at line 96 of file lua-5.2.4/src/lgc.h.

Function Documentation

luaC_barrier_()

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

Definition at line 135 of file lua-5.2.4/src/lgc.c.

                                                            {
  global_State *g = G(L);
  lua_assert(isblack(o) && iswhite(v) && !isdead(g, v) && !isdead(g, o));
  lua_assert(g->gcstate != GCSpause);
  lua_assert(gch(o)->tt != LUA_TTABLE);
  if (keepinvariantout(g))  /* must keep invariant? */
    reallymarkobject(g, v);  /* restore invariant */
  else {  /* sweep phase */
    lua_assert(issweepphase(g));
    makewhite(g, o);  /* mark main obj. as white to avoid other barriers */
  }
}

luaC_barrierback_()

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

Definition at line 155 of file lua-5.2.4/src/lgc.c.

                                                   {
  global_State *g = G(L);
  lua_assert(isblack(o) && !isdead(g, o) && gch(o)->tt == LUA_TTABLE);
  black2gray(o);  /* make object gray (again) */
  gco2t(o)->gclist = g->grayagain;
  g->grayagain = o;
}

luaC_barrierproto_()

LUAI_FUNC void luaC_barrierproto_	(	lua_State *	L,
		Proto *	p,
		Closure *	c )

Definition at line 172 of file lua-5.2.4/src/lgc.c.

                                                                       {
  global_State *g = G(L);
  lua_assert(isblack(obj2gco(p)));
  if (p->cache == NULL) {  /* first time? */
    luaC_objbarrier(L, p, c);
  }
  else {  /* use a backward barrier */
    black2gray(obj2gco(p));  /* make prototype gray (again) */
    p->gclist = g->grayagain;
    g->grayagain = obj2gco(p);
  }
}

References black2gray, Proto::cache, G, Proto::gclist, global_State::grayagain, isblack, lua_assert, luaC_objbarrier, NULL, and obj2gco.

luaC_changemode()

LUAI_FUNC void luaC_changemode	(	lua_State *	L,
		int	mode )

Definition at line 952 of file lua-5.2.4/src/lgc.c.

                                              {
  global_State *g = G(L);
  if (mode == g->gckind) return;  /* nothing to change */
  if (mode == KGC_GEN) {  /* change to generational mode */
    /* make sure gray lists are consistent */
    luaC_runtilstate(L, bitmask(GCSpropagate));
    g->GCestimate = gettotalbytes(g);
    g->gckind = KGC_GEN;
  }
  else {  /* change to incremental mode */
    /* sweep all objects to turn them back to white
       (as white has not changed, nothing extra will be collected) */
    g->gckind = KGC_NORMAL;
    entersweep(L);
    luaC_runtilstate(L, ~sweepphases);
  }
}

luaC_checkfinalizer()

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

Definition at line 873 of file lua-5.2.4/src/lgc.c.

                                                                {
  global_State *g = G(L);
  if (testbit(gch(o)->marked, SEPARATED) || /* obj. is already separated... */
      isfinalized(o) ||                           /* ... or is finalized... */
      gfasttm(g, mt, TM_GC) == NULL)                /* or has no finalizer? */
    return;  /* nothing to be done */
  else {  /* move 'o' to 'finobj' list */
    GCObject **p;
    GCheader *ho = gch(o);
    if (g->sweepgc == &ho->next) {  /* avoid removing current sweep object */
      lua_assert(issweepphase(g));
      g->sweepgc = sweeptolive(L, g->sweepgc, NULL);
    }
    /* search for pointer pointing to 'o' */
    for (p = &g->allgc; *p != o; p = &gch(*p)->next) { /* empty */ }
    *p = ho->next;  /* remove 'o' from root list */
    ho->next = g->finobj;  /* link it in list 'finobj' */
    g->finobj = o;
    l_setbit(ho->marked, SEPARATED);  /* mark it as such */
    if (!keepinvariantout(g))  /* not keeping invariant? */
      makewhite(g, o);  /* "sweep" object */
    else
      resetoldbit(o);  /* see MOVE OLD rule */
  }
}

luaC_checkupvalcolor()

LUAI_FUNC void luaC_checkupvalcolor	(	global_State *	g,
		UpVal *	uv )

Definition at line 190 of file lua-5.2.4/src/lgc.c.

                                                       {
  GCObject *o = obj2gco(uv);
  lua_assert(!isblack(o));  /* open upvalues are never black */
  if (isgray(o)) {
    if (keepinvariant(g)) {
      resetoldbit(o);  /* see MOVE OLD rule */
      gray2black(o);  /* it is being visited now */
      markvalue(g, uv->v);
    }
    else {
      lua_assert(issweepphase(g));
      makewhite(g, o);
    }
  }
}

References gray2black, isblack, isgray, issweepphase, keepinvariant, lua_assert, makewhite, markvalue, obj2gco, resetoldbit, and UpVal::v.

Referenced by luaF_close().

luaC_forcestep()

LUAI_FUNC void luaC_forcestep

(

lua_State *

L

)

Definition at line 1163 of file lua-5.2.4/src/lgc.c.

                                   {
  global_State *g = G(L);
  int i;
  if (isgenerational(g)) generationalcollection(L);
  else incstep(L);
  /* run a few finalizers (or all of them at the end of a collect cycle) */
  for (i = 0; g->tobefnz && (i < GCFINALIZENUM || g->gcstate == GCSpause); i++)
    GCTM(L, 1);  /* call one finalizer */
}

References G, GCFINALIZENUM, GCSpause, global_State::gcstate, GCTM(), generationalcollection(), incstep(), isgenerational, and global_State::tobefnz.

Referenced by lua_gc(), and luaC_step().

luaC_freeallobjects()

LUAI_FUNC void luaC_freeallobjects

(

lua_State *

L

)

Definition at line 983 of file lua-5.2.4/src/lgc.c.

                                        {
  global_State *g = G(L);
  int i;
  separatetobefnz(L, 1);  /* separate all objects with finalizers */
  lua_assert(g->finobj == NULL);
  callallpendingfinalizers(L, 0);
  g->currentwhite = WHITEBITS; /* this "white" makes all objects look dead */
  g->gckind = KGC_NORMAL;
  sweepwholelist(L, &g->finobj);  /* finalizers can create objs. in 'finobj' */
  sweepwholelist(L, &g->allgc);
  for (i = 0; i < g->strt.size; i++)  /* free all string lists */
    sweepwholelist(L, &g->strt.hash[i]);
  lua_assert(g->strt.nuse == 0);
}

luaC_fullgc()

LUAI_FUNC void luaC_fullgc	(	lua_State *	L,
		int	isemergency )

Definition at line 1189 of file lua-5.2.4/src/lgc.c.

                                                 {
  global_State *g = G(L);
  int origkind = g->gckind;
  lua_assert(origkind != KGC_EMERGENCY);
  if (isemergency)  /* do not run finalizers during emergency GC */
    g->gckind = KGC_EMERGENCY;
  else {
    g->gckind = KGC_NORMAL;
    callallpendingfinalizers(L, 1);
  }
  if (keepinvariant(g)) {  /* may there be some black objects? */
    /* must sweep all objects to turn them back to white
       (as white has not changed, nothing will be collected) */
    entersweep(L);
  }
  /* finish any pending sweep phase to start a new cycle */
  luaC_runtilstate(L, bitmask(GCSpause));
  luaC_runtilstate(L, ~bitmask(GCSpause));  /* start new collection */
  luaC_runtilstate(L, bitmask(GCSpause));  /* run entire collection */
  if (origkind == KGC_GEN) {  /* generational mode? */
    /* generational mode must be kept in propagate phase */
    luaC_runtilstate(L, bitmask(GCSpropagate));
  }
  g->gckind = origkind;
  setpause(g, gettotalbytes(g));
  if (!isemergency)   /* do not run finalizers during emergency GC */
    callallpendingfinalizers(L, 1);
}

luaC_newobj()

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

Definition at line 212 of file lua-5.2.4/src/lgc.c.

                                   {
  global_State *g = G(L);
  char *raw = cast(char *, luaM_newobject(L, novariant(tt), sz));
  GCObject *o = obj2gco(raw + offset);
  if (list == NULL)
    list = &g->allgc;  /* standard list for collectable objects */
  gch(o)->marked = luaC_white(g);
  gch(o)->tt = tt;
  gch(o)->next = *list;
  *list = o;
  return o;
}

References global_State::allgc, cast, G, gch, luaC_white, luaM_newobject, novariant, NULL, and obj2gco.

Referenced by createstrobj(), createstrobj(), createstrobj(), lua_newthread(), luaF_findupval(), luaF_initupvals(), luaF_newCclosure(), luaF_newCclosure(), luaF_newLclosure(), luaF_newLclosure(), luaF_newproto(), luaF_newupval(), luaH_new(), luaS_newudata(), luaS_newudata(), luaS_newudata(), and newupval().

luaC_runtilstate()

LUAI_FUNC void luaC_runtilstate	(	lua_State *	L,
		int	statesmask )

Definition at line 1110 of file lua-5.2.4/src/lgc.c.

                                                     {
  global_State *g = G(L);
  while (!testbit(statesmask, g->gcstate))
    singlestep(L);
}

luaC_step()

LUAI_FUNC void luaC_step

(

lua_State *

L

)

Definition at line 610 of file lua-5.1.5/src/lgc.c.

                              {
  global_State *g = G(L);
  l_mem lim = (GCSTEPSIZE/100) * g->gcstepmul;
  if (lim == 0)
    lim = (MAX_LUMEM-1)/2;  /* no limit */
  g->gcdept += g->totalbytes - g->GCthreshold;
  do {
    lim -= singlestep(L);
    if (g->gcstate == GCSpause)
      break;
  } while (lim > 0);
  if (g->gcstate != GCSpause) {
    if (g->gcdept < GCSTEPSIZE)
      g->GCthreshold = g->totalbytes + GCSTEPSIZE;  /* - lim/g->gcstepmul;*/
    else {
      g->gcdept -= GCSTEPSIZE;
      g->GCthreshold = g->totalbytes;
    }
  }
  else {
    setthreshold(g);
  }
}