Lines Matching refs:ra
358 void luaV_objlen (lua_State *L, StkId ra, const TValue *rb) { in luaV_objlen() argument
365 setnvalue(ra, cast_num(luaH_getn(h))); /* else primitive len */ in luaV_objlen()
369 setnvalue(ra, cast_num(tsvalue(rb)->len)); in luaV_objlen()
379 callTM(L, tm, rb, rb, ra, 1); in luaV_objlen()
383 void luaV_arith (lua_State *L, StkId ra, const TValue *rb, in luaV_arith() argument
390 setnvalue(ra, res); in luaV_arith()
392 else if (!call_binTM(L, rb, rc, ra, op)) in luaV_arith()
425 StkId ra) { in pushclosure() argument
431 setclLvalue(L, ra, ncl); /* anchor new closure in stack */ in pushclosure()
548 setnvalue(ra, op(L, nb, nc)); \
550 else { Protect(luaV_arith(L, ra, rb, rc, tm)); } }
570 StkId ra; in luaV_execute() local
576 ra = RA(i); in luaV_execute()
581 setobjs2s(L, ra, RB(i)); in luaV_execute()
585 setobj2s(L, ra, rb); in luaV_execute()
591 setobj2s(L, ra, rb); in luaV_execute()
594 setbvalue(ra, GETARG_B(i)); in luaV_execute()
600 setnilvalue(ra++); in luaV_execute()
605 setobj2s(L, ra, cl->upvals[b]->v); in luaV_execute()
609 Protect(luaV_gettable(L, cl->upvals[b]->v, RKC(i), ra)); in luaV_execute()
612 Protect(luaV_gettable(L, RB(i), RKC(i), ra)); in luaV_execute()
620 setobj(L, uv->v, ra); in luaV_execute()
621 luaC_barrier(L, uv, ra); in luaV_execute()
624 Protect(luaV_settable(L, ra, RKB(i), RKC(i))); in luaV_execute()
630 sethvalue(L, ra, t); in luaV_execute()
633 checkGC(L, ra + 1); in luaV_execute()
637 setobjs2s(L, ra+1, rb); in luaV_execute()
638 Protect(luaV_gettable(L, rb, RKC(i), ra)); in luaV_execute()
662 setnvalue(ra, luai_numunm(L, nb)); in luaV_execute()
665 Protect(luaV_arith(L, ra, rb, rb, TM_UNM)); in luaV_execute()
671 setbvalue(ra, res); in luaV_execute()
674 Protect(luaV_objlen(L, ra, RB(i))); in luaV_execute()
682 ra = RA(i); /* 'luav_concat' may invoke TMs and move the stack */ in luaV_execute()
684 setobjs2s(L, ra, rb); in luaV_execute()
685 checkGC(L, (ra >= rb ? ra + 1 : rb)); in luaV_execute()
718 if (GETARG_C(i) ? l_isfalse(ra) : !l_isfalse(ra)) in luaV_execute()
728 setobjs2s(L, ra, rb); in luaV_execute()
735 if (b != 0) L->top = ra+b; /* else previous instruction set top */ in luaV_execute()
736 if (luaD_precall(L, ra, nresults)) { /* C function? */ in luaV_execute()
748 if (b != 0) L->top = ra+b; /* else previous instruction set top */ in luaV_execute()
750 if (luaD_precall(L, ra, LUA_MULTRET)) /* C function? */ in luaV_execute()
777 if (b != 0) L->top = ra+b-1; in luaV_execute()
779 b = luaD_poscall(L, ra); in luaV_execute()
791 lua_Number step = nvalue(ra+2); in luaV_execute()
792 lua_Number idx = luai_numadd(L, nvalue(ra), step); /* increment index */ in luaV_execute()
793 lua_Number limit = nvalue(ra+1); in luaV_execute()
797 setnvalue(ra, idx); /* update internal index... */ in luaV_execute()
798 setnvalue(ra+3, idx); /* ...and external index */ in luaV_execute()
802 const TValue *init = ra; in luaV_execute()
803 const TValue *plimit = ra+1; in luaV_execute()
804 const TValue *pstep = ra+2; in luaV_execute()
805 if (!tonumber(init, ra)) in luaV_execute()
807 else if (!tonumber(plimit, ra+1)) in luaV_execute()
809 else if (!tonumber(pstep, ra+2)) in luaV_execute()
811 setnvalue(ra, luai_numsub(L, nvalue(ra), nvalue(pstep))); in luaV_execute()
815 StkId cb = ra + 3; /* call base */ in luaV_execute()
816 setobjs2s(L, cb+2, ra+2); in luaV_execute()
817 setobjs2s(L, cb+1, ra+1); in luaV_execute()
818 setobjs2s(L, cb, ra); in luaV_execute()
823 ra = RA(i); in luaV_execute()
829 if (!ttisnil(ra + 1)) { /* continue loop? */ in luaV_execute()
830 setobjs2s(L, ra, ra + 1); /* save control variable */ in luaV_execute()
839 if (n == 0) n = cast_int(L->top - ra) - 1; in luaV_execute()
844 luai_runtimecheck(L, ttistable(ra)); in luaV_execute()
845 h = hvalue(ra); in luaV_execute()
850 TValue *val = ra+n; in luaV_execute()
860 pushclosure(L, p, cl->upvals, base, ra); /* create a new one */ in luaV_execute()
862 setclLvalue(L, ra, ncl); /* push cashed closure */ in luaV_execute()
863 checkGC(L, ra + 1); in luaV_execute()
872 ra = RA(i); /* previous call may change the stack */ in luaV_execute()
873 L->top = ra + n; in luaV_execute()
877 setobjs2s(L, ra + j, base - n + j); in luaV_execute()
880 setnilvalue(ra + j); in luaV_execute()