|
| #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_FIN (1<<6) /* call is running a finalizer */ |
| |
| #define | CIST_HOOKED (1<<2) /* call is running a debug hook */ |
| |
| #define | CIST_HOOKYIELD (1<<5) /* last hook called yielded */ |
| |
| #define | CIST_OAH (1<<0) /* original value of 'allowhook' */ |
| |
| #define | CIST_TAIL (1<<4) /* call was tail called */ |
| |
| #define | CIST_TRAN (1<<7) /* 'ci' has transfer information */ |
| |
| #define | CIST_YPCALL (1<<3) /* call is a yieldable protected call */ |
| |
| #define | CSTACKCF 10 |
| |
| #define | CSTACKERR (8 * CSTACKCF) |
| |
| #define | CSTACKERRMARK (CSTACKCF + 2) |
| |
| #define | CSTACKMARK (CSTACKERR - (CSTACKCF + 2)) |
| |
| #define | CSTACKTHREAD (2 * CSTACKERR) |
| |
| #define | decnny(L) ((L)->nCcalls -= 0x10000) |
| |
| #define | decXCcalls(L) ((L)->nCcalls -= 0x10000 - CSTACKCF) |
| |
| #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 | getoah(st) ((st) & CIST_OAH) |
| |
| #define | gettotalbytes(g) cast(lu_mem, (g)->totalbytes + (g)->GCdebt) |
| |
| #define | incnny(L) ((L)->nCcalls += 0x10000) |
| |
| #define | incXCcalls(L) ((L)->nCcalls += 0x10000 - CSTACKCF) |
| |
| #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 | luaE_exitCcall(L) ((L)->nCcalls++) |
| |
| #define | obj2gco(v) check_exp((v)->tt >= LUA_TSTRING, &(cast_u(v)->gc)) |
| |
| #define | setoah(st, v) ((st) = ((st) & ~CIST_OAH) | (v)) |
| |
| #define | yieldable(L) (((L)->nCcalls & 0xffff0000) == 0) |
| |
