Lines Matching refs:ra
210 static int forprep (lua_State *L, StkId ra) { in forprep() argument
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()
270 static int floatforloop (StkId ra) { in floatforloop() argument
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()
689 void luaV_objlen (lua_State *L, StkId ra, const TValue *rb) { in luaV_objlen() argument
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()
714 luaT_callTMres(L, tm, rb, rb, ra); in luaV_objlen()
793 StkId ra) { in pushclosure() argument
799 setclLvalue2s(L, ra, ncl); /* anchor new closure in stack */ in pushclosure()
860 StkId ra = base + GETARG_A(inst); in luaV_finishOp() local
863 L->top.p = ra + ci->u2.nres; in luaV_finishOp()
905 StkId ra = RA(i); \
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)); \
934 StkId ra = RA(i); \
944 StkId ra = RA(i); \
954 StkId ra = RA(i); \
957 pc++; setivalue(s2v(ra), iop(L, i1, i2)); \
984 StkId ra = RA(i); \
990 pc++; setivalue(s2v(ra), op(i1, i2)); \
998 StkId ra = RA(i); \
1003 pc++; setivalue(s2v(ra), op(i1, i2)); \
1013 StkId ra = RA(i); \
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)); \
1033 StkId ra = RA(i); \
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)); \
1080 { if (l_unlikely(trap)) { updatebase(ci); ra = RA(i); } }
1189 StkId ra = RA(i); in luaV_execute() local
1190 setobjs2s(L, ra, RB(i)); in luaV_execute()
1194 StkId ra = RA(i); in luaV_execute() local
1196 setivalue(s2v(ra), b); in luaV_execute()
1200 StkId ra = RA(i); in luaV_execute() local
1202 setfltvalue(s2v(ra), cast_num(b)); in luaV_execute()
1206 StkId ra = RA(i); in luaV_execute() local
1208 setobj2s(L, ra, rb); in luaV_execute()
1212 StkId ra = RA(i); in luaV_execute() local
1215 setobj2s(L, ra, rb); in luaV_execute()
1219 StkId ra = RA(i); in luaV_execute() local
1220 setbfvalue(s2v(ra)); in luaV_execute()
1224 StkId ra = RA(i); in luaV_execute() local
1225 setbfvalue(s2v(ra)); in luaV_execute()
1230 StkId ra = RA(i); in luaV_execute() local
1231 setbtvalue(s2v(ra)); in luaV_execute()
1235 StkId ra = RA(i); in luaV_execute() local
1238 setnilvalue(s2v(ra++)); in luaV_execute()
1243 StkId ra = RA(i); in luaV_execute() local
1245 setobj2s(L, ra, cl->upvals[b]->v.p); in luaV_execute()
1249 StkId ra = RA(i); in luaV_execute() local
1251 setobj(L, uv->v.p, s2v(ra)); in luaV_execute()
1252 luaC_barrier(L, uv, s2v(ra)); in luaV_execute()
1256 StkId ra = RA(i); in luaV_execute() local
1262 setobj2s(L, ra, slot); in luaV_execute()
1265 Protect(luaV_finishget(L, upval, rc, ra, slot)); in luaV_execute()
1269 StkId ra = RA(i); in luaV_execute() local
1277 setobj2s(L, ra, slot); in luaV_execute()
1280 Protect(luaV_finishget(L, rb, rc, ra, slot)); in luaV_execute()
1284 StkId ra = RA(i); in luaV_execute() local
1289 setobj2s(L, ra, slot); in luaV_execute()
1294 Protect(luaV_finishget(L, rb, &key, ra, slot)); in luaV_execute()
1299 StkId ra = RA(i); in luaV_execute() local
1305 setobj2s(L, ra, slot); in luaV_execute()
1308 Protect(luaV_finishget(L, rb, rc, ra, slot)); in luaV_execute()
1325 StkId ra = RA(i); in luaV_execute() local
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()
1340 StkId ra = RA(i); in luaV_execute() local
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()
1355 StkId ra = RA(i); in luaV_execute() local
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()
1368 StkId ra = RA(i); in luaV_execute() local
1378 L->top.p = ra + 1; /* correct top in case of emergency GC */ in luaV_execute()
1380 sethvalue2s(L, ra, t); in luaV_execute()
1383 checkGC(L, ra + 1); in luaV_execute()
1387 StkId ra = RA(i); in luaV_execute() local
1392 setobj2s(L, ra + 1, rb); in luaV_execute()
1394 setobj2s(L, ra, slot); in luaV_execute()
1397 Protect(luaV_finishget(L, rb, rc, ra, slot)); in luaV_execute()
1447 StkId ra = RA(i); in luaV_execute() local
1452 pc++; setivalue(s2v(ra), luaV_shiftl(ib, -ic)); in luaV_execute()
1457 StkId ra = RA(i); in luaV_execute() local
1462 pc++; setivalue(s2v(ra), luaV_shiftl(ic, ib)); in luaV_execute()
1517 StkId ra = RA(i); in luaV_execute() local
1523 Protect(luaT_trybinTM(L, s2v(ra), rb, result, tm)); in luaV_execute()
1527 StkId ra = RA(i); in luaV_execute() local
1533 Protect(luaT_trybiniTM(L, s2v(ra), imm, flip, result, tm)); in luaV_execute()
1537 StkId ra = RA(i); in luaV_execute() local
1543 Protect(luaT_trybinassocTM(L, s2v(ra), imm, flip, result, tm)); in luaV_execute()
1547 StkId ra = RA(i); in luaV_execute() local
1552 setivalue(s2v(ra), intop(-, 0, ib)); in luaV_execute()
1555 setfltvalue(s2v(ra), luai_numunm(L, nb)); in luaV_execute()
1558 Protect(luaT_trybinTM(L, rb, rb, ra, TM_UNM)); in luaV_execute()
1562 StkId ra = RA(i); in luaV_execute() local
1566 setivalue(s2v(ra), intop(^, ~l_castS2U(0), ib)); in luaV_execute()
1569 Protect(luaT_trybinTM(L, rb, rb, ra, TM_BNOT)); in luaV_execute()
1573 StkId ra = RA(i); in luaV_execute() local
1576 setbtvalue(s2v(ra)); in luaV_execute()
1578 setbfvalue(s2v(ra)); in luaV_execute()
1582 StkId ra = RA(i); in luaV_execute() local
1583 Protect(luaV_objlen(L, ra, vRB(i))); in luaV_execute()
1587 StkId ra = RA(i); in luaV_execute() local
1589 L->top.p = ra + n; /* mark the end of concat operands */ in luaV_execute()
1595 StkId ra = RA(i); in luaV_execute() local
1596 Protect(luaF_close(L, ra, LUA_OK, 1)); in luaV_execute()
1600 StkId ra = RA(i); in luaV_execute() local
1602 halfProtect(luaF_newtbcupval(L, ra)); in luaV_execute()
1610 StkId ra = RA(i); in luaV_execute() local
1613 Protect(cond = luaV_equalobj(L, s2v(ra), rb)); in luaV_execute()
1626 StkId ra = RA(i); in luaV_execute() local
1629 int cond = luaV_rawequalobj(s2v(ra), rb); in luaV_execute()
1634 StkId ra = RA(i); in luaV_execute() local
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()
1663 StkId ra = RA(i); in luaV_execute() local
1664 int cond = !l_isfalse(s2v(ra)); in luaV_execute()
1669 StkId ra = RA(i); in luaV_execute() local
1674 setobj2s(L, ra, rb); in luaV_execute()
1680 StkId ra = RA(i); in luaV_execute() local
1685 L->top.p = ra + b; /* top signals number of arguments */ in luaV_execute()
1688 if ((newci = luaD_precall(L, ra, nresults)) == NULL) in luaV_execute()
1697 StkId ra = RA(i); in luaV_execute() local
1704 L->top.p = ra + b; in luaV_execute()
1706 b = cast_int(L->top.p - ra); in luaV_execute()
1713 if ((n = luaD_pretailcall(L, ci, ra, b, delta)) < 0) /* Lua function? */ in luaV_execute()
1723 StkId ra = RA(i); in luaV_execute() local
1727 n = cast_int(L->top.p - ra); /* get what is available */ in luaV_execute()
1739 L->top.p = ra + n; /* set call for 'luaD_poscall' */ in luaV_execute()
1746 StkId ra = RA(i); in luaV_execute() local
1747 L->top.p = ra; in luaV_execute()
1763 StkId ra = RA(i); in luaV_execute() local
1764 L->top.p = ra + 1; in luaV_execute()
1775 StkId ra = RA(i); in luaV_execute() local
1776 setobjs2s(L, base - 1, ra); /* at least this result */ in luaV_execute()
1791 StkId ra = RA(i); in luaV_execute() local
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()
1804 else if (floatforloop(ra)) /* float loop */ in luaV_execute()
1810 StkId ra = RA(i); in luaV_execute() local
1812 if (forprep(L, ra)) in luaV_execute()
1817 StkId ra = RA(i); in luaV_execute() local
1819 halfProtect(luaF_newtbcupval(L, ra + 3)); in luaV_execute()
1822 lua_assert(GET_OPCODE(i) == OP_TFORCALL && ra == RA(i)); in luaV_execute()
1827 StkId ra = RA(i); in luaV_execute() local
1834 memcpy(ra + 4, ra, 3 * sizeof(*ra)); in luaV_execute()
1835 L->top.p = ra + 4 + 3; in luaV_execute()
1836 ProtectNT(luaD_call(L, ra + 4, GETARG_C(i))); /* do the call */ in luaV_execute()
1839 lua_assert(GET_OPCODE(i) == OP_TFORLOOP && ra == RA(i)); in luaV_execute()
1844 StkId ra = RA(i); in luaV_execute() local
1845 if (!ttisnil(s2v(ra + 4))) { /* continue loop? */ in luaV_execute()
1846 setobjs2s(L, ra + 2, ra + 4); /* save control variable */ in luaV_execute()
1852 StkId ra = RA(i); in luaV_execute() local
1855 Table *h = hvalue(s2v(ra)); in luaV_execute()
1857 n = cast_int(L->top.p - ra) - 1; /* get up to the top */ in luaV_execute()
1868 TValue *val = s2v(ra + n); in luaV_execute()
1876 StkId ra = RA(i); in luaV_execute() local
1878 halfProtect(pushclosure(L, p, cl->upvals, base, ra)); in luaV_execute()
1879 checkGC(L, ra + 1); in luaV_execute()
1883 StkId ra = RA(i); in luaV_execute() local
1885 Protect(luaT_getvarargs(L, ci, ra, n)); in luaV_execute()