Lines Matching refs:s2v
207 TValue *pinit = s2v(ra); in forprep()
208 TValue *plimit = s2v(ra + 1); in forprep()
209 TValue *pstep = s2v(ra + 2); in forprep()
216 setivalue(s2v(ra + 3), init); /* control variable */ in forprep()
253 setfltvalue(s2v(ra), init); /* internal index */ in forprep()
254 setfltvalue(s2v(ra + 3), init); /* control variable */ in forprep()
267 lua_Number step = fltvalue(s2v(ra + 2)); in floatforloop()
268 lua_Number limit = fltvalue(s2v(ra + 1)); in floatforloop()
269 lua_Number idx = fltvalue(s2v(ra)); /* internal index */ in floatforloop()
273 chgfltvalue(s2v(ra), idx); /* update internal index */ in floatforloop()
274 setfltvalue(s2v(ra + 3), idx); /* and control variable */ in floatforloop()
303 setnilvalue(s2v(val)); /* result is nil */ in luaV_finishget()
610 return !l_isfalse(s2v(L->top)); in luaV_equalobj()
625 size_t l = vslen(s2v(top - n)); /* length of string being copied */ in copy2buff()
626 memcpy(buff + tl, svalue(s2v(top - n)), l * sizeof(char)); in copy2buff()
642 if (!(ttisstring(s2v(top - 2)) || cvt2str(s2v(top - 2))) || in luaV_concat()
643 !tostring(L, s2v(top - 1))) in luaV_concat()
645 else if (isemptystr(s2v(top - 1))) /* second operand is empty? */ in luaV_concat()
646 cast_void(tostring(L, s2v(top - 2))); /* result is first operand */ in luaV_concat()
647 else if (isemptystr(s2v(top - 2))) { /* first operand is empty string? */ in luaV_concat()
652 size_t tl = vslen(s2v(top - 1)); in luaV_concat()
655 for (n = 1; n < total && tostring(L, s2v(top - n - 1)); n++) { in luaV_concat()
656 size_t l = vslen(s2v(top - n - 1)); in luaV_concat()
688 setivalue(s2v(ra), luaH_getn(h)); /* else primitive len */ in luaV_objlen()
692 setivalue(s2v(ra), tsvalue(rb)->shrlen); in luaV_objlen()
696 setivalue(s2v(ra), tsvalue(rb)->u.lnglen); in luaV_objlen()
826 int res = !l_isfalse(s2v(L->top - 1)); in luaV_finishOp()
889 pc++; setivalue(s2v(ra), iop(L, iv1, imm)); \
894 pc++; setfltvalue(s2v(ra), fop(L, nb, fimm)); \
905 pc++; setfltvalue(s2v(ra), fop(L, n1, n2)); \
933 pc++; setivalue(s2v(ra), iop(L, i1, i2)); \
965 pc++; setivalue(s2v(ra), op(i1, i2)); \
977 pc++; setivalue(s2v(ra), op(i1, i2)); \
989 if (ttisinteger(s2v(ra)) && ttisinteger(rb)) { \
990 lua_Integer ia = ivalue(s2v(ra)); \
994 else if (ttisnumber(s2v(ra)) && ttisnumber(rb)) \
995 cond = opn(s2v(ra), rb); \
997 Protect(cond = other(L, s2v(ra), rb)); \
1008 if (ttisinteger(s2v(ra))) \
1009 cond = opi(ivalue(s2v(ra)), im); \
1010 else if (ttisfloat(s2v(ra))) { \
1011 lua_Number fa = fltvalue(s2v(ra)); \
1017 Protect(cond = luaT_callorderiTM(L, s2v(ra), im, inv, isf, tm)); \
1037 #define vRB(i) s2v(RB(i))
1040 #define vRC(i) s2v(RC(i))
1042 #define RKC(i) ((TESTARG_k(i)) ? k + GETARG_C(i) : s2v(base + GETARG_C(i)))
1137 cl = clLvalue(s2v(ci->func)); in luaV_execute()
1164 setivalue(s2v(ra), b); in luaV_execute()
1169 setfltvalue(s2v(ra), cast_num(b)); in luaV_execute()
1184 setbfvalue(s2v(ra)); in luaV_execute()
1188 setbfvalue(s2v(ra)); in luaV_execute()
1193 setbtvalue(s2v(ra)); in luaV_execute()
1199 setnilvalue(s2v(ra++)); in luaV_execute()
1210 setobj(L, uv->v, s2v(ra)); in luaV_execute()
1211 luaC_barrier(L, uv, s2v(ra)); in luaV_execute()
1285 ? (cast_void(n = ivalue(rb)), luaV_fastgeti(L, s2v(ra), n, slot)) in luaV_execute()
1286 : luaV_fastget(L, s2v(ra), rb, slot, luaH_get)) { in luaV_execute()
1287 luaV_finishfastset(L, s2v(ra), slot, rc); in luaV_execute()
1290 Protect(luaV_finishset(L, s2v(ra), rb, rc, slot)); in luaV_execute()
1297 if (luaV_fastgeti(L, s2v(ra), c, slot)) { in luaV_execute()
1298 luaV_finishfastset(L, s2v(ra), slot, rc); in luaV_execute()
1303 Protect(luaV_finishset(L, s2v(ra), &key, rc, slot)); in luaV_execute()
1312 if (luaV_fastget(L, s2v(ra), key, slot, luaH_getshortstr)) { in luaV_execute()
1313 luaV_finishfastset(L, s2v(ra), slot, rc); in luaV_execute()
1316 Protect(luaV_finishset(L, s2v(ra), rb, rc, slot)); in luaV_execute()
1399 pc++; setivalue(s2v(ra), luaV_shiftl(ib, -ic)); in luaV_execute()
1408 pc++; setivalue(s2v(ra), luaV_shiftl(ic, ib)); in luaV_execute()
1466 Protect(luaT_trybinTM(L, s2v(ra), rb, result, tm)); in luaV_execute()
1475 Protect(luaT_trybiniTM(L, s2v(ra), imm, flip, result, tm)); in luaV_execute()
1484 Protect(luaT_trybinassocTM(L, s2v(ra), imm, flip, result, tm)); in luaV_execute()
1492 setivalue(s2v(ra), intop(-, 0, ib)); in luaV_execute()
1495 setfltvalue(s2v(ra), luai_numunm(L, nb)); in luaV_execute()
1505 setivalue(s2v(ra), intop(^, ~l_castS2U(0), ib)); in luaV_execute()
1514 setbtvalue(s2v(ra)); in luaV_execute()
1516 setbfvalue(s2v(ra)); in luaV_execute()
1546 Protect(cond = luaV_equalobj(L, s2v(ra), rb)); in luaV_execute()
1561 int cond = luaV_rawequalobj(s2v(ra), rb); in luaV_execute()
1568 if (ttisinteger(s2v(ra))) in luaV_execute()
1569 cond = (ivalue(s2v(ra)) == im); in luaV_execute()
1570 else if (ttisfloat(s2v(ra))) in luaV_execute()
1571 cond = luai_numeq(fltvalue(s2v(ra)), cast_num(im)); in luaV_execute()
1594 int cond = !l_isfalse(s2v(ra)); in luaV_execute()
1634 while (!ttisfunction(s2v(ra))) { /* not a function? */ in luaV_execute()
1639 if (!ttisLclosure(s2v(ra))) { /* C function? */ in luaV_execute()
1680 setnilvalue(s2v(L->top++)); /* all results are nil */ in luaV_execute()
1698 setnilvalue(s2v(L->top++)); in luaV_execute()
1704 if (ttisinteger(s2v(ra + 2))) { /* integer loop? */ in luaV_execute()
1705 lua_Unsigned count = l_castS2U(ivalue(s2v(ra + 1))); in luaV_execute()
1707 lua_Integer step = ivalue(s2v(ra + 2)); in luaV_execute()
1708 lua_Integer idx = ivalue(s2v(ra)); /* internal index */ in luaV_execute()
1709 chgivalue(s2v(ra + 1), count - 1); /* update counter */ in luaV_execute()
1711 chgivalue(s2v(ra), idx); /* update internal index */ in luaV_execute()
1712 setivalue(s2v(ra + 3), idx); /* and control variable */ in luaV_execute()
1753 if (!ttisnil(s2v(ra + 4))) { /* continue loop? */ in luaV_execute()
1762 Table *h = hvalue(s2v(ra)); in luaV_execute()
1775 TValue *val = s2v(ra + n); in luaV_execute()