| /freebsd/contrib/lua/src/ |
| H A D | lvm.c | 211 TValue *pinit = s2v(ra); in forprep()
212 TValue *plimit = s2v(ra + 1); in forprep()
213 TValue *pstep = s2v(ra + 2); in forprep()
220 setivalue(s2v(ra + 3), init); /* control variable */ in forprep()
257 setfltvalue(s2v(ra), init); /* internal index */ in forprep()
258 setfltvalue(s2v(ra + 3), init); /* control variable */ in forprep()
271 lua_Number step = fltvalue(s2v(ra + 2)); in floatforloop()
272 lua_Number limit = fltvalue(s2v(ra + 1)); in floatforloop()
273 lua_Number idx = fltvalue(s2v(ra)); /* internal index */ in floatforloop()
277 chgfltvalue(s2v(ra), idx); /* update internal index */ in floatforloop()
[all …]
|
| H A D | lapi.c | 66 else return s2v(o); in index2value()
71 return s2v(L->top.p + idx); in index2value()
78 if (ttisCclosure(s2v(ci->func.p))) { /* C closure? */ in index2value()
79 CClosure *func = clCvalue(s2v(ci->func.p)); in index2value()
84 api_check(L, ttislcf(s2v(ci->func.p)), "caller not a C function"); in index2value()
192 setnilvalue(s2v(L->top.p++)); /* clear new slots */ in lua_settop()
216 setnilvalue(s2v(level)); in lua_closeslot()
230 setobj(L, &temp, s2v(from)); in reverse()
263 luaC_barrier(L, clCvalue(s2v(L->ci->func.p)), fr); in lua_copy()
345 luaO_arith(L, op, s2v(L->top.p - 2), s2v(L->top.p - 1), L->top.p - 2); in lua_arith()
[all …]
|
| H A D | ltm.c | 169 if (l_unlikely(!callbinTM(L, s2v(top - 2), s2v(top - 1), top - 2, in luaT_tryconcatTM()
171 luaG_concaterror(L, s2v(top - 2), s2v(top - 1)); in luaT_tryconcatTM()
204 return !l_isfalse(s2v(L->top.p)); in luaT_callorderTM()
211 return l_isfalse(s2v(L->top.p)); in luaT_callorderTM()
250 setnilvalue(s2v(ci->func.p + i)); /* erase original parameter (for GC) */ in luaT_adjustvarargs()
269 setnilvalue(s2v(where + i)); in luaT_getvarargs()
|
| H A D | ldo.c | 102 setnilvalue(s2v(oldtop)); /* no error message */ in luaD_seterrorobj()
188 up->v.p = s2v(restorestack(L, up->v.offset)); in correctstack()
233 setnilvalue(s2v(newstack + i)); /* erase new segment */ in luaD_reallocstack()
416 tm = luaT_gettmbyobj(L, s2v(func), TM_CALL); /* (after previous GC) */ in luaD_tryfuncTM()
418 luaG_callerror(L, s2v(func)); /* nothing to call */ in luaD_tryfuncTM()
442 setnilvalue(s2v(res)); /* adjust with nil */ in moveresults()
474 setnilvalue(s2v(res + i)); in moveresults()
546 switch (ttypetag(s2v(func))) { in luaD_pretailcall()
548 return precallC(L, func, LUA_MULTRET, clCvalue(s2v(func))->f); in luaD_pretailcall()
550 return precallC(L, func, LUA_MULTRET, fvalue(s2v(func))); in luaD_pretailcall()
[all …]
|
| H A D | lfunc.c | 69 uv->v.p = s2v(level); /* current value lives in the stack */ in newupval()
126 const TValue *tm = luaT_gettmbyobj(L, s2v(level), TM_CLOSE); in checkclosemth()
144 TValue *uv = s2v(level); /* value being closed */ in prepcallclosemth()
149 errobj = s2v(level + 1); /* error object goes after 'uv' */ in prepcallclosemth()
170 if (l_isfalse(s2v(level))) in luaF_newtbcupval()
|
| H A D | lobject.h | 129 #define setobjs2s(L,o1,o2) setobj(L,s2v(o1),s2v(o2))
131 #define setobj2s(L,o1,o2) setobj(L,s2v(o1),o2)
172 #define s2v(o) (&(o)->val) macro
273 #define setthvalue2s(L,o,t) setthvalue(L,s2v(o),t)
377 #define setsvalue2s(L,o,s) setsvalue(L,s2v(o),s)
615 #define setclLvalue2s(L,o,cl) setclLvalue(L,s2v(o),cl)
691 #define sethvalue2s(L,o,h) sethvalue(L,s2v(o),h)
|
| H A D | ldebug.c | 185 if (clLvalue(s2v(ci->func.p))->p->is_vararg) { in findvararg()
224 if (!isLfunction(s2v(L->top.p - 1))) /* not a Lua function? */ in lua_getlocal()
227 name = luaF_getlocalname(clLvalue(s2v(L->top.p - 1))->p, n, 0); in lua_getlocal()
292 setnilvalue(s2v(L->top.p)); in collectvalidlines()
391 func = s2v(L->top.p - 1); in lua_getinfo()
398 func = s2v(ci->func.p); in lua_getinfo()
668 if (o == s2v(base + pos)) in instack()
812 lua_assert(ttisfunction(s2v(errfunc))); in luaG_errormsg()
|
| H A D | lstate.c | 186 setnilvalue(s2v(L1->stack.p + i)); /* erase new stack */ in stack_init()
196 setnilvalue(s2v(L1->top.p)); /* 'function' entry for this 'ci' */ in stack_init()
325 setnilvalue(s2v(L->stack.p)); /* 'function' entry for basic 'ci' */ in luaE_resetthread()
434 TValue *errobj = s2v(L->top.p - 1); /* error object */ in luaE_warnerror()
|
| H A D | ldebug.h | 18 #define ci_func(ci) (clLvalue(s2v((ci)->func.p)))
|
| H A D | ltable.c | 351 unsigned int i = findindex(L, t, s2v(key), asize); /* find original key */ in luaH_next()
354 setivalue(s2v(key), i + 1); in luaH_next()
362 getnodekey(L, s2v(key), n); in luaH_next()
|
| H A D | lobject.c | 128 if (!luaO_rawarith(L, op, p1, p2, s2v(res))) { in luaO_arith()
545 return svalue(s2v(L->top.p - 1)); in luaO_pushvfstring()
|
| H A D | llex.c | 141 TValue *stv = s2v(L->top.p++); /* reserve stack space for string */ in luaX_newstring()
|
| H A D | ltests.c | 47 #define obj_at(L,k) s2v(L->ci->func.p + (k))
432 Proto *p = clLvalue(s2v(f))->p; in lua_checkpc()
457 checkliveness(L1, s2v(o)); /* entire stack must have valid values */ in checkstack()
|
| H A D | luac.c | 141 #define toproto(L,i) getproto(s2v(L->top.p+(i)))
|
| H A D | lgc.c | 637 markvalue(g, s2v(o)); in traversethread()
642 setnilvalue(s2v(o)); /* clear dead stack slice */ in traversethread()
|