|
#define | BASIC_STACK_SIZE (2*LUA_MINSTACK) |
|
#define | cast_u(o) cast(union GCUnion *, (o)) |
|
#define | CIST_C (1<<1) /* call is running a C function */ |
|
#define | CIST_CLSRET (1<<9) /* function is closing tbc variables */ |
|
#define | CIST_FIN (1<<7) /* call is running a finalizer */ |
|
#define | CIST_FRESH (1<<2) /* call is on a fresh "luaV_execute" frame */ |
|
#define | CIST_HOOKED (1<<3) /* call is running a debug hook */ |
|
#define | CIST_HOOKYIELD (1<<6) /* last hook called yielded */ |
|
#define | CIST_OAH (1<<0) /* original value of 'allowhook' */ |
|
#define | CIST_RECST 10 |
|
#define | CIST_TAIL (1<<5) /* call was tail called */ |
|
#define | CIST_TRAN (1<<8) /* 'ci' has transfer information */ |
|
#define | CIST_YPCALL (1<<4) /* doing a yieldable protected call */ |
|
#define | completestate(g) ttisnil(&g->nilvalue) |
|
#define | decnny(L) ((L)->nCcalls -= 0x10000) |
|
#define | EXTRA_STACK 5 |
|
#define | G(L) (L->l_G) |
|
#define | gco2ccl(o) check_exp((o)->tt == LUA_VCCL, &((cast_u(o))->cl.c)) |
|
#define | gco2cl(o) check_exp(novariant((o)->tt) == LUA_TFUNCTION, &((cast_u(o))->cl)) |
|
#define | gco2lcl(o) check_exp((o)->tt == LUA_VLCL, &((cast_u(o))->cl.l)) |
|
#define | gco2p(o) check_exp((o)->tt == LUA_VPROTO, &((cast_u(o))->p)) |
|
#define | gco2t(o) check_exp((o)->tt == LUA_VTABLE, &((cast_u(o))->h)) |
|
#define | gco2th(o) check_exp((o)->tt == LUA_VTHREAD, &((cast_u(o))->th)) |
|
#define | gco2ts(o) check_exp(novariant((o)->tt) == LUA_TSTRING, &((cast_u(o))->ts)) |
|
#define | gco2u(o) check_exp((o)->tt == LUA_VUSERDATA, &((cast_u(o))->u)) |
|
#define | gco2upv(o) check_exp((o)->tt == LUA_VUPVAL, &((cast_u(o))->upv)) |
|
#define | getCcalls(L) ((L)->nCcalls & 0xffff) |
|
#define | getcistrecst(ci) (((ci)->callstatus >> CIST_RECST) & 7) |
|
#define | getoah(st) ((st) & CIST_OAH) |
|
#define | gettotalbytes(g) cast(lu_mem, (g)->totalbytes + (g)->GCdebt) |
|
#define | incnny(L) ((L)->nCcalls += 0x10000) |
|
#define | isLua(ci) (!((ci)->callstatus & CIST_C)) |
|
#define | isLuacode(ci) (!((ci)->callstatus & (CIST_C | CIST_HOOKED))) |
|
#define | KGC_GEN 1 /* generational gc */ |
|
#define | KGC_INC 0 /* incremental gc */ |
|
#define | l_signalT sig_atomic_t |
|
#define | nyci (0x10000 | 1) |
|
#define | obj2gco(v) check_exp((v)->tt >= LUA_TSTRING, &(cast_u(v)->gc)) |
|
#define | setcistrecst(ci, st) |
|
#define | setoah(st, v) ((st) = ((st) & ~CIST_OAH) | (v)) |
|
#define | stacksize(th) cast_int((th)->stack_last - (th)->stack) |
|
#define | yieldable(L) (((L)->nCcalls & 0xffff0000) == 0) |
|