#include "lua.h"
#include "lobject.h"
#include "ltm.h"
#include "lzio.h"
#include <signal.h>
Go to the source code of this file.
|
#define | l_signalT sig_atomic_t |
|
#define | EXTRA_STACK 5 |
|
#define | BASIC_STACK_SIZE (2*LUA_MINSTACK) |
|
#define | KGC_NORMAL 0 |
|
#define | KGC_EMERGENCY 1 /* gc was forced by an allocation failure */ |
|
#define | CIST_OAH (1<<0) /* original value of 'allowhook' */ |
|
#define | CIST_LUA (1<<1) /* call is running a Lua function */ |
|
#define | CIST_HOOKED (1<<2) /* call is running a debug hook */ |
|
#define | CIST_FRESH |
|
#define | CIST_YPCALL (1<<4) /* call is a yieldable protected call */ |
|
#define | CIST_TAIL (1<<5) /* call was tail called */ |
|
#define | CIST_HOOKYIELD (1<<6) /* last hook called yielded */ |
|
#define | CIST_LEQ (1<<7) /* using __lt for __le */ |
|
#define | CIST_FIN (1<<8) /* call is running a finalizer */ |
|
#define | isLua(ci) ((ci)->callstatus & CIST_LUA) |
|
#define | setoah(st, v) ((st) = ((st) & ~CIST_OAH) | (v)) |
|
#define | getoah(st) ((st) & CIST_OAH) |
|
#define | G(L) (L->l_G) |
|
#define | cast_u(o) cast(union GCUnion *, (o)) |
|
#define | gco2ts(o) check_exp(novariant((o)->tt) == LUA_TSTRING, &((cast_u(o))->ts)) |
|
#define | gco2u(o) check_exp((o)->tt == LUA_TUSERDATA, &((cast_u(o))->u)) |
|
#define | gco2lcl(o) check_exp((o)->tt == LUA_TLCL, &((cast_u(o))->cl.l)) |
|
#define | gco2ccl(o) check_exp((o)->tt == LUA_TCCL, &((cast_u(o))->cl.c)) |
|
#define | gco2cl(o) check_exp(novariant((o)->tt) == LUA_TFUNCTION, &((cast_u(o))->cl)) |
|
#define | gco2t(o) check_exp((o)->tt == LUA_TTABLE, &((cast_u(o))->h)) |
|
#define | gco2p(o) check_exp((o)->tt == LUA_TPROTO, &((cast_u(o))->p)) |
|
#define | gco2th(o) check_exp((o)->tt == LUA_TTHREAD, &((cast_u(o))->th)) |
|
#define | obj2gco(v) check_exp(novariant((v)->tt) < LUA_TDEADKEY, (&(cast_u(v)->gc))) |
|
#define | gettotalbytes(g) cast(lu_mem, (g)->totalbytes + (g)->GCdebt) |
|
◆ BASIC_STACK_SIZE
◆ cast_u
◆ CIST_FIN
#define CIST_FIN (1<<8) /* call is running a finalizer */ |
◆ CIST_FRESH
◆ CIST_HOOKED
#define CIST_HOOKED (1<<2) /* call is running a debug hook */ |
◆ CIST_HOOKYIELD
#define CIST_HOOKYIELD (1<<6) /* last hook called yielded */ |
◆ CIST_LEQ
#define CIST_LEQ (1<<7) /* using __lt for __le */ |
◆ CIST_LUA
#define CIST_LUA (1<<1) /* call is running a Lua function */ |
◆ CIST_OAH
#define CIST_OAH (1<<0) /* original value of 'allowhook' */ |
◆ CIST_TAIL
#define CIST_TAIL (1<<5) /* call was tail called */ |
◆ CIST_YPCALL
#define CIST_YPCALL (1<<4) /* call is a yieldable protected call */ |
◆ EXTRA_STACK
◆ gco2ccl
◆ gco2cl
◆ gco2lcl
◆ gco2p
◆ gco2t
◆ gco2th
◆ gco2ts
◆ gco2u
◆ getoah
◆ gettotalbytes
#define gettotalbytes |
( |
|
g | ) |
cast(lu_mem, (g)->totalbytes + (g)->GCdebt) |
◆ isLua
#define isLua |
( |
|
ci | ) |
((ci)->callstatus & CIST_LUA) |
◆ KGC_EMERGENCY
#define KGC_EMERGENCY 1 /* gc was forced by an allocation failure */ |
◆ KGC_NORMAL
◆ l_signalT
#define l_signalT sig_atomic_t |
◆ obj2gco
◆ setoah
#define setoah |
( |
|
st, |
|
|
|
v |
|
) |
| ((st) = ((st) & ~CIST_OAH) | (v)) |
◆ CallInfo
◆ global_State
◆ stringtable
◆ luaE_extendCI()
◆ luaE_freeCI()
◆ luaE_freethread()
◆ luaE_setdebt()
◆ luaE_shrinkCI()