Home
last modified time | relevance | path

Searched refs:check_exp (Results 1 – 10 of 10) sorted by relevance

/netbsd/src/external/mit/lua/dist/src/
Dlstate.h237 check_exp(((st) & 7) == (st), /* status must fit in three bits */ \
376 check_exp(novariant((o)->tt) == LUA_TSTRING, &((cast_u(o))->ts))
377 #define gco2u(o) check_exp((o)->tt == LUA_VUSERDATA, &((cast_u(o))->u))
378 #define gco2lcl(o) check_exp((o)->tt == LUA_VLCL, &((cast_u(o))->cl.l))
379 #define gco2ccl(o) check_exp((o)->tt == LUA_VCCL, &((cast_u(o))->cl.c))
381 check_exp(novariant((o)->tt) == LUA_TFUNCTION, &((cast_u(o))->cl))
382 #define gco2t(o) check_exp((o)->tt == LUA_VTABLE, &((cast_u(o))->h))
383 #define gco2p(o) check_exp((o)->tt == LUA_VPROTO, &((cast_u(o))->p))
384 #define gco2th(o) check_exp((o)->tt == LUA_VTHREAD, &((cast_u(o))->th))
385 #define gco2upv(o) check_exp((o)->tt == LUA_VUPVAL, &((cast_u(o))->upv))
[all …]
Dlobject.h270 #define thvalue(o) check_exp(ttisthread(o), gco2th(val_(o).gc))
309 #define gcvalue(o) check_exp(iscollectable(o), val_(o).gc)
337 #define nvalue(o) check_exp(ttisnumber(o), \
340 #define nvalue(o) check_exp(ttisnumber(o), cast_num(ivalue(o)))
342 #define fltvalue(o) check_exp(ttisfloat(o), val_(o).n)
343 #define ivalue(o) check_exp(ttisinteger(o), val_(o).i)
381 #define tsvalue(o) check_exp(ttisstring(o), gco2ts(val_(o).gc))
448 #define pvalue(o) check_exp(ttislightuserdata(o), val_(o).p)
449 #define uvalue(o) check_exp(ttisfulluserdata(o), gco2u(val_(o).gc))
615 #define clvalue(o) check_exp(ttisclosure(o), gco2cl(val_(o).gc))
[all …]
Dlopcodes.h130 #define GETARG_B(i) check_exp(checkopm(i, iABC), getarg(i, POS_B, SIZE_B))
134 #define GETARG_C(i) check_exp(checkopm(i, iABC), getarg(i, POS_C, SIZE_C))
138 #define TESTARG_k(i) check_exp(checkopm(i, iABC), (cast_int(((i) & (1u << POS_k)))))
139 #define GETARG_k(i) check_exp(checkopm(i, iABC), getarg(i, POS_k, 1))
142 #define GETARG_Bx(i) check_exp(checkopm(i, iABx), getarg(i, POS_Bx, SIZE_Bx))
145 #define GETARG_Ax(i) check_exp(checkopm(i, iAx), getarg(i, POS_Ax, SIZE_Ax))
149 check_exp(checkopm(i, iAsBx), getarg(i, POS_Bx, SIZE_Bx) - OFFSET_sBx)
153 check_exp(checkopm(i, isJ), getarg(i, POS_sJ, SIZE_sJ) - OFFSET_sJ)
Dlgc.h102 check_exp(!iswhite(x), l_setbit((x)->marked, BLACKBIT))
123 check_exp(getage(o) == (f), (o)->marked ^= ((f)^(t)))
Dllimits.h116 #define check_exp(c,e) (lua_assert(c), (e)) macro
121 #define check_exp(c,e) (e) macro
Dlctype.h76 check_exp(('A' <= (c) && (c) <= 'Z') || (c) == ((c) | ('A' ^ 'a')), \
Dlstring.h43 #define eqshrstr(a,b) check_exp((a)->tt == LUA_VSHRSTR, (a) == (b))
Dlfunc.h37 #define uplevel(up) check_exp(upisopen(up), cast(StkId, (up)->v.p))
Dltable.c300 #define limitasasize(t) check_exp(isrealasize(t), t->alimit)
Dldebug.c182 TString *s = check_exp(uv < p->sizeupvalues, p->upvalues[uv].name); in upvalname()