#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()