HomeSort by: relevance | last modified time | path
    Searched refs:s2v (Results 1 - 15 of 15) sorted by relevancy

  /src/external/mit/lua/dist/src/
lvm.c 224 TValue *pinit = s2v(ra);
225 TValue *plimit = s2v(ra + 1);
226 TValue *pstep = s2v(ra + 2);
235 setivalue(s2v(ra + 3), init); /* control variable */
275 setfltvalue(s2v(ra), init); /* internal index */
276 setfltvalue(s2v(ra + 3), init); /* control variable */
291 lua_Number step = fltvalue(s2v(ra + 2));
292 lua_Number limit = fltvalue(s2v(ra + 1));
293 lua_Number idx = fltvalue(s2v(ra)); /* internal index */
297 chgfltvalue(s2v(ra), idx); /* update internal index *
    [all...]
lapi.c 72 else return s2v(o);
77 return s2v(L->top.p + idx);
84 if (ttisCclosure(s2v(ci->func.p))) { /* C closure? */
85 CClosure *func = clCvalue(s2v(ci->func.p));
90 api_check(L, ttislcf(s2v(ci->func.p)), "caller not a C function");
198 setnilvalue(s2v(L->top.p++)); /* clear new slots */
222 setnilvalue(s2v(level));
236 setobj(L, &temp, s2v(from));
269 luaC_barrier(L, clCvalue(s2v(L->ci->func.p)), fr);
351 luaO_arith(L, op, s2v(L->top.p - 2), s2v(L->top.p - 1), L->top.p - 2)
    [all...]
ltm.c 178 if (l_unlikely(!callbinTM(L, s2v(top - 2), s2v(top - 1), top - 2,
180 luaG_concaterror(L, s2v(top - 2), s2v(top - 1));
213 return !l_isfalse(s2v(L->top.p));
220 return l_isfalse(s2v(L->top.p));
261 setnilvalue(s2v(ci->func.p + i)); /* erase original parameter (for GC) */
280 setnilvalue(s2v(where + i));
ldebug.h 20 #define ci_func(ci) (clLvalue(s2v((ci)->func.p)))
lfunc.c 73 uv->v.p = s2v(level); /* current value lives in the stack */
130 const TValue *tm = luaT_gettmbyobj(L, s2v(level), TM_CLOSE);
148 TValue *uv = s2v(level); /* value being closed */
153 errobj = s2v(level + 1); /* error object goes after 'uv' */
174 if (l_isfalse(s2v(level)))
ldo.c 106 setnilvalue(s2v(oldtop)); /* no error message */
192 up->v.p = s2v(restorestack(L, up->v.offset));
237 setnilvalue(s2v(newstack + i)); /* erase new segment */
420 tm = luaT_gettmbyobj(L, s2v(func), TM_CALL); /* (after previous GC) */
422 luaG_callerror(L, s2v(func)); /* nothing to call */
446 setnilvalue(s2v(res)); /* adjust with nil */
478 setnilvalue(s2v(res + i));
550 switch (ttypetag(s2v(func))) {
552 return precallC(L, func, LUA_MULTRET, clCvalue(s2v(func))->f);
554 return precallC(L, func, LUA_MULTRET, fvalue(s2v(func)))
    [all...]
lobject.h 133 #define setobjs2s(L,o1,o2) setobj(L,s2v(o1),s2v(o2))
135 #define setobj2s(L,o1,o2) setobj(L,s2v(o1),o2)
176 #define s2v(o) (&(o)->val) macro
277 #define setthvalue2s(L,o,t) setthvalue(L,s2v(o),t)
389 #define setsvalue2s(L,o,s) setsvalue(L,s2v(o),s)
627 #define setclLvalue2s(L,o,cl) setclLvalue(L,s2v(o),cl)
703 #define sethvalue2s(L,o,h) sethvalue(L,s2v(o),h)
ldebug.c 189 if (clLvalue(s2v(ci->func.p))->p->is_vararg) {
228 if (!isLfunction(s2v(L->top.p - 1))) /* not a Lua function? */
231 name = luaF_getlocalname(clLvalue(s2v(L->top.p - 1))->p, n, 0);
296 setnilvalue(s2v(L->top.p));
395 func = s2v(L->top.p - 1);
402 func = s2v(ci->func.p);
672 if (o == s2v(base + pos))
816 lua_assert(ttisfunction(s2v(errfunc)));
lstate.c 190 setnilvalue(s2v(L1->stack.p + i)); /* erase new stack */
200 setnilvalue(s2v(L1->top.p)); /* 'function' entry for this 'ci' */
329 setnilvalue(s2v(L->stack.p)); /* 'function' entry for basic 'ci' */
438 TValue *errobj = s2v(L->top.p - 1); /* error object */
lobject.c 144 if (!luaO_rawarith(L, op, p1, p2, s2v(res))) {
576 return svalue(s2v(L->top.p - 1));
ltable.c 361 unsigned int i = findindex(L, t, s2v(key), asize); /* find original key */
364 setivalue(s2v(key), i + 1);
372 getnodekey(L, s2v(key), n);
llex.c 149 TValue *stv = s2v(L->top.p++); /* reserve stack space for string */
luac.c 143 #define toproto(L,i) getproto(s2v(L->top.p+(i)))
lgc.c 640 markvalue(g, s2v(o));
645 setnilvalue(s2v(o)); /* clear dead stack slice */
  /src/sys/arch/sparc/sparc/
openfirm.c 717 OF_set_symbol_lookup(void (*s2v)(void *), void (*v2s)(void *))
730 args.sym2val = ADR2CELL(s2v);

Completed in 25 milliseconds