|
#define | GCSTEPSIZE (cast_int(100 * sizeof(TString))) |
|
#define | GCSpropagate 0 |
|
#define | GCSatomic 1 |
|
#define | GCSswpallgc 2 |
|
#define | GCSswpfinobj 3 |
|
#define | GCSswptobefnz 4 |
|
#define | GCSswpend 5 |
|
#define | GCScallfin 6 |
|
#define | GCSpause 7 |
|
#define | issweepphase(g) (GCSswpallgc <= (g)->gcstate && (g)->gcstate <= GCSswpend) |
|
#define | keepinvariant(g) ((g)->gcstate <= GCSatomic) |
|
#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 marked for finalization */ |
|
#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) ^ WHITEBITS) & (ow))) |
|
#define | isdead(g, v) isdeadm(otherwhite(g), (v)->marked) |
|
#define | changewhite(x) ((x)->marked ^= WHITEBITS) |
|
#define | gray2black(x) l_setbit((x)->marked, BLACKBIT) |
|
#define | luaC_white(g) cast(lu_byte, (g)->currentwhite & WHITEBITS) |
|
#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) |
|
#define | luaC_upvalbarrier(L, uv) |
|