Lines Matching refs:s2v
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()
278 setfltvalue(s2v(ra + 3), idx); /* and control variable */ in floatforloop()
307 setnilvalue(s2v(val)); /* result is nil */ in luaV_finishget()
616 return !l_isfalse(s2v(L->top.p)); in luaV_equalobj()
631 size_t l = vslen(s2v(top - n)); /* length of string being copied */ in copy2buff()
632 memcpy(buff + tl, svalue(s2v(top - n)), l * sizeof(char)); in copy2buff()
648 if (!(ttisstring(s2v(top - 2)) || cvt2str(s2v(top - 2))) || in luaV_concat()
649 !tostring(L, s2v(top - 1))) in luaV_concat()
651 else if (isemptystr(s2v(top - 1))) /* second operand is empty? */ in luaV_concat()
652 cast_void(tostring(L, s2v(top - 2))); /* result is first operand */ in luaV_concat()
653 else if (isemptystr(s2v(top - 2))) { /* first operand is empty string? */ in luaV_concat()
658 size_t tl = vslen(s2v(top - 1)); in luaV_concat()
661 for (n = 1; n < total && tostring(L, s2v(top - n - 1)); n++) { in luaV_concat()
662 size_t l = vslen(s2v(top - n - 1)); in luaV_concat()
696 setivalue(s2v(ra), luaH_getn(h)); /* else primitive len */ in luaV_objlen()
700 setivalue(s2v(ra), tsvalue(rb)->shrlen); in luaV_objlen()
704 setivalue(s2v(ra), tsvalue(rb)->u.lnglen); in luaV_objlen()
833 int res = !l_isfalse(s2v(L->top.p - 1)); in luaV_finishOp()
910 pc++; setivalue(s2v(ra), iop(L, iv1, imm)); \
915 pc++; setfltvalue(s2v(ra), fop(L, nb, fimm)); \
926 pc++; setfltvalue(s2v(ra), fop(L, n1, n2)); \
957 pc++; setivalue(s2v(ra), iop(L, i1, i2)); \
990 pc++; setivalue(s2v(ra), op(i1, i2)); \
1003 pc++; setivalue(s2v(ra), op(i1, i2)); \
1016 if (ttisinteger(s2v(ra)) && ttisinteger(rb)) { \
1017 lua_Integer ia = ivalue(s2v(ra)); \
1021 else if (ttisnumber(s2v(ra)) && ttisnumber(rb)) \
1022 cond = opn(s2v(ra), rb); \
1024 Protect(cond = other(L, s2v(ra), rb)); \
1036 if (ttisinteger(s2v(ra))) \
1037 cond = opi(ivalue(s2v(ra)), im); \
1038 else if (ttisfloat(s2v(ra))) { \
1039 lua_Number fa = fltvalue(s2v(ra)); \
1045 Protect(cond = luaT_callorderiTM(L, s2v(ra), im, inv, isf, tm)); \
1065 #define vRB(i) s2v(RB(i))
1068 #define vRC(i) s2v(RC(i))
1070 #define RKC(i) ((TESTARG_k(i)) ? k + GETARG_C(i) : s2v(base + GETARG_C(i)))
1162 cl = clLvalue(s2v(ci->func.p)); in luaV_execute()
1196 setivalue(s2v(ra), b); in luaV_execute()
1202 setfltvalue(s2v(ra), cast_num(b)); in luaV_execute()
1220 setbfvalue(s2v(ra)); in luaV_execute()
1225 setbfvalue(s2v(ra)); in luaV_execute()
1231 setbtvalue(s2v(ra)); in luaV_execute()
1238 setnilvalue(s2v(ra++)); in luaV_execute()
1251 setobj(L, uv->v.p, s2v(ra)); in luaV_execute()
1252 luaC_barrier(L, uv, s2v(ra)); in luaV_execute()
1331 ? (cast_void(n = ivalue(rb)), luaV_fastgeti(L, s2v(ra), n, slot)) in luaV_execute()
1332 : luaV_fastget(L, s2v(ra), rb, slot, luaH_get)) { in luaV_execute()
1333 luaV_finishfastset(L, s2v(ra), slot, rc); in luaV_execute()
1336 Protect(luaV_finishset(L, s2v(ra), rb, rc, slot)); in luaV_execute()
1344 if (luaV_fastgeti(L, s2v(ra), c, slot)) { in luaV_execute()
1345 luaV_finishfastset(L, s2v(ra), slot, rc); in luaV_execute()
1350 Protect(luaV_finishset(L, s2v(ra), &key, rc, slot)); in luaV_execute()
1360 if (luaV_fastget(L, s2v(ra), key, slot, luaH_getshortstr)) { in luaV_execute()
1361 luaV_finishfastset(L, s2v(ra), slot, rc); in luaV_execute()
1364 Protect(luaV_finishset(L, s2v(ra), rb, rc, slot)); in luaV_execute()
1452 pc++; setivalue(s2v(ra), luaV_shiftl(ib, -ic)); in luaV_execute()
1462 pc++; setivalue(s2v(ra), luaV_shiftl(ic, ib)); in luaV_execute()
1523 Protect(luaT_trybinTM(L, s2v(ra), rb, result, tm)); in luaV_execute()
1533 Protect(luaT_trybiniTM(L, s2v(ra), imm, flip, result, tm)); in luaV_execute()
1543 Protect(luaT_trybinassocTM(L, s2v(ra), imm, flip, result, tm)); in luaV_execute()
1552 setivalue(s2v(ra), intop(-, 0, ib)); in luaV_execute()
1555 setfltvalue(s2v(ra), luai_numunm(L, nb)); in luaV_execute()
1566 setivalue(s2v(ra), intop(^, ~l_castS2U(0), ib)); in luaV_execute()
1576 setbtvalue(s2v(ra)); in luaV_execute()
1578 setbfvalue(s2v(ra)); in luaV_execute()
1613 Protect(cond = luaV_equalobj(L, s2v(ra), rb)); in luaV_execute()
1629 int cond = luaV_rawequalobj(s2v(ra), rb); in luaV_execute()
1637 if (ttisinteger(s2v(ra))) in luaV_execute()
1638 cond = (ivalue(s2v(ra)) == im); in luaV_execute()
1639 else if (ttisfloat(s2v(ra))) in luaV_execute()
1640 cond = luai_numeq(fltvalue(s2v(ra)), cast_num(im)); in luaV_execute()
1664 int cond = !l_isfalse(s2v(ra)); in luaV_execute()
1757 setnilvalue(s2v(L->top.p++)); /* all results are nil */ in luaV_execute()
1779 setnilvalue(s2v(L->top.p++)); /* complete missing results */ in luaV_execute()
1792 if (ttisinteger(s2v(ra + 2))) { /* integer loop? */ in luaV_execute()
1793 lua_Unsigned count = l_castS2U(ivalue(s2v(ra + 1))); in luaV_execute()
1795 lua_Integer step = ivalue(s2v(ra + 2)); in luaV_execute()
1796 lua_Integer idx = ivalue(s2v(ra)); /* internal index */ in luaV_execute()
1797 chgivalue(s2v(ra + 1), count - 1); /* update counter */ in luaV_execute()
1799 chgivalue(s2v(ra), idx); /* update internal index */ in luaV_execute()
1800 setivalue(s2v(ra + 3), idx); /* and control variable */ in luaV_execute()
1845 if (!ttisnil(s2v(ra + 4))) { /* continue loop? */ in luaV_execute()
1855 Table *h = hvalue(s2v(ra)); in luaV_execute()
1868 TValue *val = s2v(ra + n); in luaV_execute()