/freebsd/sys/contrib/openzfs/module/lua/ |
H A D | lstate.h | 202 check_exp(novariant((o)->gch.tt) == LUA_TSTRING, &((o)->ts)) 204 #define rawgco2u(o) check_exp((o)->gch.tt == LUA_TUSERDATA, &((o)->u)) 206 #define gco2lcl(o) check_exp((o)->gch.tt == LUA_TLCL, &((o)->cl.l)) 207 #define gco2ccl(o) check_exp((o)->gch.tt == LUA_TCCL, &((o)->cl.c)) 209 check_exp(novariant((o)->gch.tt) == LUA_TFUNCTION, &((o)->cl)) 210 #define gco2t(o) check_exp((o)->gch.tt == LUA_TTABLE, &((o)->h)) 211 #define gco2p(o) check_exp((o)->gch.tt == LUA_TPROTO, &((o)->p)) 212 #define gco2uv(o) check_exp((o)->gch.tt == LUA_TUPVAL, &((o)->uv)) 213 #define gco2th(o) check_exp((o)->gch.tt == LUA_TTHREAD, &((o)->th))
|
H A D | lobject.h | 150 #define nvalue(o) check_exp(ttisnumber(o), num_(o)) 151 #define gcvalue(o) check_exp(iscollectable(o), val_(o).gc) 152 #define pvalue(o) check_exp(ttislightuserdata(o), val_(o).p) 153 #define rawtsvalue(o) check_exp(ttisstring(o), &val_(o).gc->ts) 155 #define rawuvalue(o) check_exp(ttisuserdata(o), &val_(o).gc->u) 157 #define clvalue(o) check_exp(ttisclosure(o), &val_(o).gc->cl) 158 #define clLvalue(o) check_exp(ttisLclosure(o), &val_(o).gc->cl.l) 160 #define fvalue(o) check_exp(ttislcf(o), val_(o).f) 161 #define hvalue(o) check_exp(ttistable(o), &val_(o).gc->h) 162 #define bvalue(o) check_exp(ttisboolean(o), val_(o).b) [all …]
|
H A D | llimits.h | 58 #define check_exp(c,e) (lua_assert(c), (e)) macro 63 #define check_exp(c,e) (e) macro
|
H A D | lstring.h | 34 #define eqshrstr(a,b) check_exp((a)->tsv.tt == LUA_TSHRSTR, (a) == (b))
|
H A D | lgc.h | 69 check_exp(g->gcstate == GCSpropagate || !isgenerational(g), \
|
H A D | lvm.c | 551 #define RB(i) check_exp(getBMode(GET_OPCODE(i)) == OpArgR, base+GETARG_B(i)) 552 #define RC(i) check_exp(getCMode(GET_OPCODE(i)) == OpArgR, base+GETARG_C(i)) 553 #define RKB(i) check_exp(getBMode(GET_OPCODE(i)) == OpArgK, \ 555 #define RKC(i) check_exp(getCMode(GET_OPCODE(i)) == OpArgK, \
|
H A D | ldebug.c | 106 TString *s = check_exp(uv < p->sizeupvalues, p->upvalues[uv].name); in upvalname()
|
H A D | lcode.c | 709 : check_exp(vkisinreg(t->k), VLOCAL); in luaK_indexed()
|
/freebsd/contrib/lua/src/ |
H A D | lstate.h | 235 check_exp(((st) & 7) == (st), /* status must fit in three bits */ \ 374 check_exp(novariant((o)->tt) == LUA_TSTRING, &((cast_u(o))->ts)) 375 #define gco2u(o) check_exp((o)->tt == LUA_VUSERDATA, &((cast_u(o))->u)) 376 #define gco2lcl(o) check_exp((o)->tt == LUA_VLCL, &((cast_u(o))->cl.l)) 377 #define gco2ccl(o) check_exp((o)->tt == LUA_VCCL, &((cast_u(o))->cl.c)) 379 check_exp(novariant((o)->tt) == LUA_TFUNCTION, &((cast_u(o))->cl)) 380 #define gco2t(o) check_exp((o)->tt == LUA_VTABLE, &((cast_u(o))->h)) 381 #define gco2p(o) check_exp((o)->tt == LUA_VPROTO, &((cast_u(o))->p)) 382 #define gco2th(o) check_exp((o)->tt == LUA_VTHREAD, &((cast_u(o))->th)) 383 #define gco2upv(o) check_exp((o)->tt == LUA_VUPVAL, &((cast_u(o))->upv)) [all …]
|
H A D | lopcodes.h | 128 #define GETARG_B(i) check_exp(checkopm(i, iABC), getarg(i, POS_B, SIZE_B)) 132 #define GETARG_C(i) check_exp(checkopm(i, iABC), getarg(i, POS_C, SIZE_C)) 136 #define TESTARG_k(i) check_exp(checkopm(i, iABC), (cast_int(((i) & (1u << POS_k))))) 137 #define GETARG_k(i) check_exp(checkopm(i, iABC), getarg(i, POS_k, 1)) 140 #define GETARG_Bx(i) check_exp(checkopm(i, iABx), getarg(i, POS_Bx, SIZE_Bx)) 143 #define GETARG_Ax(i) check_exp(checkopm(i, iAx), getarg(i, POS_Ax, SIZE_Ax)) 147 check_exp(checkopm(i, iAsBx), getarg(i, POS_Bx, SIZE_Bx) - OFFSET_sBx) 151 check_exp(checkopm(i, isJ), getarg(i, POS_sJ, SIZE_sJ) - OFFSET_sJ)
|
H A D | lobject.h | 266 #define thvalue(o) check_exp(ttisthread(o), gco2th(val_(o).gc)) 305 #define gcvalue(o) check_exp(iscollectable(o), val_(o).gc) 330 #define nvalue(o) check_exp(ttisnumber(o), \ 332 #define fltvalue(o) check_exp(ttisfloat(o), val_(o).n) 333 #define ivalue(o) check_exp(ttisinteger(o), val_(o).i) 369 #define tsvalue(o) check_exp(ttisstring(o), gco2ts(val_(o).gc)) 436 #define pvalue(o) check_exp(ttislightuserdata(o), val_(o).p) 603 #define clvalue(o) check_exp(ttisclosure(o), gco2cl(val_(o).gc)) 605 #define fvalue(o) check_exp(ttislcf(o), val_(o).f) 684 #define hvalue(o) check_exp(ttistable(o), gco2t(val_(o).gc)) [all …]
|
H A D | lgc.h | 100 check_exp(!iswhite(x), l_setbit((x)->marked, BLACKBIT)) 121 check_exp(getage(o) == (f), (o)->marked ^= ((f)^(t)))
|
H A D | llimits.h | 110 #define check_exp(c,e) (lua_assert(c), (e)) macro 115 #define check_exp(c,e) (e) macro
|
H A D | lctype.h | 72 check_exp(('A' <= (c) && (c) <= 'Z') || (c) == ((c) | ('A' ^ 'a')), \
|
H A D | lstring.h | 41 #define eqshrstr(a,b) check_exp((a)->tt == LUA_VSHRSTR, (a) == (b))
|
H A D | lfunc.h | 35 #define uplevel(up) check_exp(upisopen(up), cast(StkId, (up)->v.p))
|
H A D | ltable.c | 290 #define limitasasize(t) check_exp(isrealasize(t), t->alimit)
|
H A D | ldebug.c | 178 TString *s = check_exp(uv < p->sizeupvalues, p->upvalues[uv].name); in upvalname()
|