Home
last modified time | relevance | path

Searched refs:s2v (Results 1 – 14 of 14) sorted by relevance

/freebsd-13-stable/contrib/lua/src/
HDlvm.c214 TValue *pinit = s2v(ra); in forprep()
215 TValue *plimit = s2v(ra + 1); in forprep()
216 TValue *pstep = s2v(ra + 2); in forprep()
223 setivalue(s2v(ra + 3), init); /* control variable */ in forprep()
260 setfltvalue(s2v(ra), init); /* internal index */ in forprep()
261 setfltvalue(s2v(ra + 3), init); /* control variable */ in forprep()
274 lua_Number step = fltvalue(s2v(ra + 2)); in floatforloop()
275 lua_Number limit = fltvalue(s2v(ra + 1)); in floatforloop()
276 lua_Number idx = fltvalue(s2v(ra)); /* internal index */ in floatforloop()
280 chgfltvalue(s2v(ra), idx); /* update internal index */ in floatforloop()
[all …]
HDlapi.c62 else return s2v(o); in index2value()
66 return s2v(L->top + idx); in index2value()
73 if (ttislcf(s2v(ci->func))) /* light C function? */ in index2value()
76 CClosure *func = clCvalue(s2v(ci->func)); in index2value()
184 setnilvalue(s2v(L->top++)); /* clear new slots */ in lua_settop()
206 setobj(L, &temp, s2v(from)); in reverse()
239 luaC_barrier(L, clCvalue(s2v(L->ci->func)), fr); in lua_copy()
321 luaO_arith(L, op, s2v(L->top - 2), s2v(L->top - 1), L->top - 2); in lua_arith()
348 size_t sz = luaO_str2num(s, s2v(L->top)); in lua_stringtonumber()
475 setnilvalue(s2v(L->top)); in lua_pushnil()
[all …]
HDltm.c169 if (!callbinTM(L, s2v(top - 2), s2v(top - 1), top - 2, TM_CONCAT)) in luaT_tryconcatTM()
170 luaG_concaterror(L, s2v(top - 2), s2v(top - 1)); in luaT_tryconcatTM()
203 return !l_isfalse(s2v(L->top)); in luaT_callorderTM()
210 return l_isfalse(s2v(L->top)); in luaT_callorderTM()
249 setnilvalue(s2v(ci->func + i)); /* erase original parameter (for GC) */ in luaT_adjustvarargs()
268 setnilvalue(s2v(where + i)); in luaT_getvarargs()
HDldo.c102 setnilvalue(s2v(oldtop)); /* no error message */ in luaD_seterrorobj()
170 up->v = s2v((uplevel(up) - oldstack) + newstack); in correctstack()
195 setnilvalue(s2v(newstack + lim + EXTRA_STACK)); /* erase new segment */ in luaD_reallocstack()
338 p = clLvalue(s2v(ci->func))->p; in luaD_hookcall()
375 const TValue *tm = luaT_gettmbyobj(L, s2v(func), TM_CALL); in luaD_tryfuncTM()
378 luaG_typeerror(L, s2v(func), "call"); /* nothing to call */ in luaD_tryfuncTM()
401 setnilvalue(s2v(res)); /* adjust with nil */ in moveresults()
425 setnilvalue(s2v(res + i)); in moveresults()
453 Proto *p = clLvalue(s2v(func))->p; in luaD_pretailcall()
462 setnilvalue(s2v(func + narg1)); /* complete missing arguments */ in luaD_pretailcall()
[all …]
HDlfunc.c69 uv->v = s2v(level); /* current value lives in the stack */ in newupval()
151 TValue *uv = s2v(level); /* value being closed */ in callclosemth()
163 if (prepclosingmethod(L, uv, s2v(level))) { /* something to call? */ in callclosemth()
195 TValue *obj = s2v(level); in luaF_newtbcupval()
207 prepclosingmethod(L, s2v(level), s2v(level + 1)); in luaF_newtbcupval()
HDlobject.h127 #define setobjs2s(L,o1,o2) setobj(L,s2v(o1),s2v(o2))
129 #define setobj2s(L,o1,o2) setobj(L,s2v(o1),o2)
150 #define s2v(o) (&(o)->val) macro
251 #define setthvalue2s(L,o,t) setthvalue(L,s2v(o),t)
355 #define setsvalue2s(L,o,s) setsvalue(L,s2v(o),s)
592 #define setclLvalue2s(L,o,cl) setclLvalue(L,s2v(o),cl)
666 #define sethvalue2s(L,o,h) sethvalue(L,s2v(o),h)
HDldebug.c189 if (clLvalue(s2v(ci->func))->p->is_vararg) { in findvararg()
228 if (!isLfunction(s2v(L->top - 1))) /* not a Lua function? */ in lua_getlocal()
231 name = luaF_getlocalname(clLvalue(s2v(L->top - 1))->p, n, 0); in lua_getlocal()
296 setnilvalue(s2v(L->top)); in collectvalidlines()
394 func = s2v(L->top - 1); in lua_getinfo()
401 func = s2v(ci->func); in lua_getinfo()
657 return (0 <= i && i < (ci->top - base) && s2v(base + i) == o); in isinstack()
757 lua_assert(ttisfunction(s2v(errfunc))); in luaG_errormsg()
HDlstate.c185 setnilvalue(s2v(L1->stack + i)); /* erase new stack */ in stack_init()
195 setnilvalue(s2v(L1->top)); /* 'function' entry for this 'ci' */ in stack_init()
332 setnilvalue(s2v(L->stack)); /* 'function' entry for basic 'ci' */ in lua_resetthread()
423 TValue *errobj = s2v(L->top - 1); /* error object */ in luaE_warnerror()
HDldebug.h18 #define ci_func(ci) (clLvalue(s2v((ci)->func)))
HDltable.c321 unsigned int i = findindex(L, t, s2v(key), asize); /* find original key */ in luaH_next()
324 setivalue(s2v(key), i + 1); in luaH_next()
332 getnodekey(L, s2v(key), n); in luaH_next()
HDlobject.c128 if (!luaO_rawarith(L, op, p1, p2, s2v(res))) { in luaO_arith()
535 return svalue(s2v(L->top - 1)); in luaO_pushvfstring()
HDllex.c134 o = luaH_set(L, ls->h, s2v(L->top - 1)); in luaX_newstring()
HDlgc.c631 markvalue(g, s2v(o)); in traversethread()
636 setnilvalue(s2v(o)); /* clear dead stack slice */ in traversethread()
HDluac.c141 #define toproto(L,i) getproto(s2v(L->top+(i)))