Lines Matching refs:ra
317 static void Arith (lua_State *L, StkId ra, const TValue *rb, in Arith() argument
325 case TM_ADD: setnvalue(ra, luai_numadd(nb, nc)); break; in Arith()
326 case TM_SUB: setnvalue(ra, luai_numsub(nb, nc)); break; in Arith()
327 case TM_MUL: setnvalue(ra, luai_nummul(nb, nc)); break; in Arith()
328 case TM_DIV: setnvalue(ra, luai_numdiv(nb, nc)); break; in Arith()
329 case TM_MOD: setnvalue(ra, luai_nummod(nb, nc)); break; in Arith()
330 case TM_POW: setnvalue(ra, luai_numpow(nb, nc)); break; in Arith()
331 case TM_UNM: setnvalue(ra, luai_numunm(nb)); break; in Arith()
335 else if (!call_binTM(L, rb, rc, ra, op)) in Arith()
369 setnvalue(ra, op(nb, nc)); \
372 Protect(Arith(L, ra, rb, rc, tm)); \
391 StkId ra; in luaV_execute() local
402 ra = RA(i); in luaV_execute()
408 setobjs2s(L, ra, RB(i)); in luaV_execute()
412 setobj2s(L, ra, KBx(i)); in luaV_execute()
416 setbvalue(ra, GETARG_B(i)); in luaV_execute()
424 } while (rb >= ra); in luaV_execute()
429 setobj2s(L, ra, cl->upvals[b]->v); in luaV_execute()
437 Protect(luaV_gettable(L, &g, rb, ra)); in luaV_execute()
441 Protect(luaV_gettable(L, RB(i), RKC(i), ra)); in luaV_execute()
448 Protect(luaV_settable(L, &g, KBx(i), ra)); in luaV_execute()
453 setobj(L, uv->v, ra); in luaV_execute()
454 luaC_barrier(L, uv, ra); in luaV_execute()
458 Protect(luaV_settable(L, ra, RKB(i), RKC(i))); in luaV_execute()
464 sethvalue(L, ra, luaH_new(L, luaO_fb2int(b), luaO_fb2int(c))); in luaV_execute()
470 setobjs2s(L, ra+1, rb); in luaV_execute()
471 Protect(luaV_gettable(L, rb, RKC(i), ra)); in luaV_execute()
502 setnvalue(ra, luai_numunm(nb)); in luaV_execute()
505 Protect(Arith(L, ra, rb, rb, TM_UNM)); in luaV_execute()
511 setbvalue(ra, res); in luaV_execute()
518 setnvalue(ra, cast_num(luaH_getn(hvalue(rb)))); in luaV_execute()
522 setnvalue(ra, cast_num(tsvalue(rb)->len)); in luaV_execute()
527 if (!call_binTM(L, rb, luaO_nilobject, ra, TM_LEN)) in luaV_execute()
572 if (l_isfalse(ra) != GETARG_C(i)) in luaV_execute()
580 setobjs2s(L, ra, rb); in luaV_execute()
589 if (b != 0) L->top = ra+b; /* else previous instruction set top */ in luaV_execute()
591 switch (luaD_precall(L, ra, nresults)) { in luaV_execute()
609 if (b != 0) L->top = ra+b; /* else previous instruction set top */ in luaV_execute()
612 switch (luaD_precall(L, ra, LUA_MULTRET)) { in luaV_execute()
641 if (b != 0) L->top = ra+b-1; in luaV_execute()
644 b = luaD_poscall(L, ra); in luaV_execute()
655 lua_Number step = nvalue(ra+2); in luaV_execute()
656 lua_Number idx = luai_numadd(nvalue(ra), step); /* increment index */ in luaV_execute()
657 lua_Number limit = nvalue(ra+1); in luaV_execute()
661 setnvalue(ra, idx); /* update internal index... */ in luaV_execute()
662 setnvalue(ra+3, idx); /* ...and external index */ in luaV_execute()
667 const TValue *init = ra; in luaV_execute()
668 const TValue *plimit = ra+1; in luaV_execute()
669 const TValue *pstep = ra+2; in luaV_execute()
671 if (!tonumber(init, ra)) in luaV_execute()
673 else if (!tonumber(plimit, ra+1)) in luaV_execute()
675 else if (!tonumber(pstep, ra+2)) in luaV_execute()
677 setnvalue(ra, luai_numsub(nvalue(ra), nvalue(pstep))); in luaV_execute()
682 StkId cb = ra + 3; /* call base */ in luaV_execute()
683 setobjs2s(L, cb+2, ra+2); in luaV_execute()
684 setobjs2s(L, cb+1, ra+1); in luaV_execute()
685 setobjs2s(L, cb, ra); in luaV_execute()
703 n = cast_int(L->top - ra) - 1; in luaV_execute()
707 runtime_check(L, ttistable(ra)); in luaV_execute()
708 h = hvalue(ra); in luaV_execute()
713 TValue *val = ra+n; in luaV_execute()
720 luaF_close(L, ra); in luaV_execute()
739 setclvalue(L, ra, ncl); in luaV_execute()
750 ra = RA(i); /* previous call may change the stack */ in luaV_execute()
752 L->top = ra + n; in luaV_execute()
756 setobjs2s(L, ra + j, ci->base - n + j); in luaV_execute()
759 setnilvalue(ra + j); in luaV_execute()