Ardour
9.0-pre0-582-g084a23a80d
|
Go to the source code of this file.
Classes | |
struct | stringtable |
struct | CallInfo |
struct | global_State |
struct | lua_State |
union | GCUnion |
Macros | |
#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) |
Typedefs | |
typedef struct stringtable | stringtable |
typedef struct CallInfo | CallInfo |
typedef struct global_State | global_State |
Functions | |
void | luaE_setdebt (global_State *g, l_mem debt) |
void | luaE_freethread (lua_State *L, lua_State *L1) |
CallInfo * | luaE_extendCI (lua_State *L) |
void | luaE_freeCI (lua_State *L) |
void | luaE_shrinkCI (lua_State *L) |
#define BASIC_STACK_SIZE (2*LUA_MINSTACK) |
#define CIST_FRESH |
#define CIST_HOOKED (1<<2) /* call is running a debug hook */ |
#define CIST_HOOKYIELD (1<<6) /* last hook called yielded */ |
#define CIST_LUA (1<<1) /* call is running a Lua function */ |
#define CIST_OAH (1<<0) /* original value of 'allowhook' */ |
#define CIST_YPCALL (1<<4) /* call is a yieldable protected call */ |
#define gco2cl | ( | o | ) | check_exp(novariant((o)->tt) == LUA_TFUNCTION, &((cast_u(o))->cl)) |
#define gco2p | ( | o | ) | check_exp((o)->tt == LUA_TPROTO, &((cast_u(o))->p)) |
#define gco2t | ( | o | ) | check_exp((o)->tt == LUA_TTABLE, &((cast_u(o))->h)) |
#define gco2th | ( | o | ) | check_exp((o)->tt == LUA_TTHREAD, &((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_TUSERDATA, &((cast_u(o))->u)) |
#define KGC_EMERGENCY 1 /* gc was forced by an allocation failure */ |
#define obj2gco | ( | v | ) | check_exp(novariant((v)->tt) < LUA_TDEADKEY, (&(cast_u(v)->gc))) |
typedef struct global_State global_State |
typedef struct stringtable stringtable |
void luaE_freeCI | ( | lua_State * | L | ) |
void luaE_setdebt | ( | global_State * | g, |
l_mem | debt | ||
) |
void luaE_shrinkCI | ( | lua_State * | L | ) |