Lines Matching refs:s2v
214 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()
281 setfltvalue(s2v(ra + 3), idx); /* and control variable */ in floatforloop()
310 setnilvalue(s2v(val)); /* result is nil */ in luaV_finishget()
617 return !l_isfalse(s2v(L->top)); in luaV_equalobj()
632 size_t l = vslen(s2v(top - n)); /* length of string being copied */ in copy2buff()
633 memcpy(buff + tl, svalue(s2v(top - n)), l * sizeof(char)); in copy2buff()
649 if (!(ttisstring(s2v(top - 2)) || cvt2str(s2v(top - 2))) || in luaV_concat()
650 !tostring(L, s2v(top - 1))) in luaV_concat()
652 else if (isemptystr(s2v(top - 1))) /* second operand is empty? */ in luaV_concat()
653 cast_void(tostring(L, s2v(top - 2))); /* result is first operand */ in luaV_concat()
654 else if (isemptystr(s2v(top - 2))) { /* first operand is empty string? */ in luaV_concat()
659 size_t tl = vslen(s2v(top - 1)); in luaV_concat()
662 for (n = 1; n < total && tostring(L, s2v(top - n - 1)); n++) { in luaV_concat()
663 size_t l = vslen(s2v(top - n - 1)); in luaV_concat()
695 setivalue(s2v(ra), luaH_getn(h)); /* else primitive len */ in luaV_objlen()
699 setivalue(s2v(ra), tsvalue(rb)->shrlen); in luaV_objlen()
703 setivalue(s2v(ra), tsvalue(rb)->u.lnglen); in luaV_objlen()
833 int res = !l_isfalse(s2v(L->top - 1)); in luaV_finishOp()
896 pc++; setivalue(s2v(ra), iop(L, iv1, imm)); \
901 pc++; setfltvalue(s2v(ra), fop(L, nb, fimm)); \
912 pc++; setfltvalue(s2v(ra), fop(L, n1, n2)); \
940 pc++; setivalue(s2v(ra), iop(L, i1, i2)); \
972 pc++; setivalue(s2v(ra), op(i1, i2)); \
984 pc++; setivalue(s2v(ra), op(i1, i2)); \
996 if (ttisinteger(s2v(ra)) && ttisinteger(rb)) { \
997 lua_Integer ia = ivalue(s2v(ra)); \
1001 else if (ttisnumber(s2v(ra)) && ttisnumber(rb)) \
1002 cond = opn(s2v(ra), rb); \
1004 Protect(cond = other(L, s2v(ra), rb)); \
1015 if (ttisinteger(s2v(ra))) \
1016 cond = opi(ivalue(s2v(ra)), im); \
1017 else if (ttisfloat(s2v(ra))) { \
1018 lua_Number fa = fltvalue(s2v(ra)); \
1024 Protect(cond = luaT_callorderiTM(L, s2v(ra), im, inv, isf, tm)); \
1044 #define vRB(i) s2v(RB(i))
1047 #define vRC(i) s2v(RC(i))
1049 #define RKC(i) ((TESTARG_k(i)) ? k + GETARG_C(i) : s2v(base + GETARG_C(i)))
1141 cl = clLvalue(s2v(ci->func)); in luaV_execute()
1170 setivalue(s2v(ra), b); in luaV_execute()
1175 setfltvalue(s2v(ra), cast_num(b)); in luaV_execute()
1190 setbfvalue(s2v(ra)); in luaV_execute()
1194 setbfvalue(s2v(ra)); in luaV_execute()
1199 setbtvalue(s2v(ra)); in luaV_execute()
1205 setnilvalue(s2v(ra++)); in luaV_execute()
1216 setobj(L, uv->v, s2v(ra)); in luaV_execute()
1217 luaC_barrier(L, uv, s2v(ra)); in luaV_execute()
1291 ? (cast_void(n = ivalue(rb)), luaV_fastgeti(L, s2v(ra), n, slot)) in luaV_execute()
1292 : luaV_fastget(L, s2v(ra), rb, slot, luaH_get)) { in luaV_execute()
1293 luaV_finishfastset(L, s2v(ra), slot, rc); in luaV_execute()
1296 Protect(luaV_finishset(L, s2v(ra), rb, rc, slot)); in luaV_execute()
1303 if (luaV_fastgeti(L, s2v(ra), c, slot)) { in luaV_execute()
1304 luaV_finishfastset(L, s2v(ra), slot, rc); in luaV_execute()
1309 Protect(luaV_finishset(L, s2v(ra), &key, rc, slot)); in luaV_execute()
1318 if (luaV_fastget(L, s2v(ra), key, slot, luaH_getshortstr)) { in luaV_execute()
1319 luaV_finishfastset(L, s2v(ra), slot, rc); in luaV_execute()
1322 Protect(luaV_finishset(L, s2v(ra), rb, rc, slot)); in luaV_execute()
1405 pc++; setivalue(s2v(ra), luaV_shiftl(ib, -ic)); in luaV_execute()
1414 pc++; setivalue(s2v(ra), luaV_shiftl(ic, ib)); in luaV_execute()
1472 Protect(luaT_trybinTM(L, s2v(ra), rb, result, tm)); in luaV_execute()
1481 Protect(luaT_trybiniTM(L, s2v(ra), imm, flip, result, tm)); in luaV_execute()
1490 Protect(luaT_trybinassocTM(L, s2v(ra), imm, flip, result, tm)); in luaV_execute()
1498 setivalue(s2v(ra), intop(-, 0, ib)); in luaV_execute()
1501 setfltvalue(s2v(ra), luai_numunm(L, nb)); in luaV_execute()
1511 setivalue(s2v(ra), intop(^, ~l_castS2U(0), ib)); in luaV_execute()
1520 setbtvalue(s2v(ra)); in luaV_execute()
1522 setbfvalue(s2v(ra)); in luaV_execute()
1552 Protect(cond = luaV_equalobj(L, s2v(ra), rb)); in luaV_execute()
1567 int cond = luaV_rawequalobj(s2v(ra), rb); in luaV_execute()
1574 if (ttisinteger(s2v(ra))) in luaV_execute()
1575 cond = (ivalue(s2v(ra)) == im); in luaV_execute()
1576 else if (ttisfloat(s2v(ra))) in luaV_execute()
1577 cond = luai_numeq(fltvalue(s2v(ra)), cast_num(im)); in luaV_execute()
1600 int cond = !l_isfalse(s2v(ra)); in luaV_execute()
1648 while (!ttisfunction(s2v(ra))) { /* not a function? */ in luaV_execute()
1653 if (!ttisLclosure(s2v(ra))) { /* C function? */ in luaV_execute()
1698 setnilvalue(s2v(L->top++)); /* all results are nil */ in luaV_execute()
1718 setnilvalue(s2v(L->top++)); in luaV_execute()
1730 if (ttisinteger(s2v(ra + 2))) { /* integer loop? */ in luaV_execute()
1731 lua_Unsigned count = l_castS2U(ivalue(s2v(ra + 1))); in luaV_execute()
1733 lua_Integer step = ivalue(s2v(ra + 2)); in luaV_execute()
1734 lua_Integer idx = ivalue(s2v(ra)); /* internal index */ in luaV_execute()
1735 chgivalue(s2v(ra + 1), count - 1); /* update counter */ in luaV_execute()
1737 chgivalue(s2v(ra), idx); /* update internal index */ in luaV_execute()
1738 setivalue(s2v(ra + 3), idx); /* and control variable */ in luaV_execute()
1779 if (!ttisnil(s2v(ra + 4))) { /* continue loop? */ in luaV_execute()
1788 Table *h = hvalue(s2v(ra)); in luaV_execute()
1801 TValue *val = s2v(ra + n); in luaV_execute()