minimizing the code ran by 'vmfetch' + no more 'vra'
(the code is simpler without 'vra' and conversion is a no-op)
diff --git a/ldebug.c b/ldebug.c
index 996e8cb..c07a37f 100644
--- a/ldebug.c
+++ b/ldebug.c
@@ -1,5 +1,5 @@
/*
-** $Id: ldebug.c,v 2.155 2018/02/17 19:29:29 roberto Exp roberto $
+** $Id: ldebug.c,v 2.156 2018/03/16 15:33:34 roberto Exp roberto $
** Debug Interface
** See Copyright Notice in lua.h
*/
@@ -783,17 +783,24 @@
}
-void luaG_traceexec (lua_State *L) {
+int luaG_traceexec (lua_State *L, const Instruction *pc) {
CallInfo *ci = L->ci;
lu_byte mask = L->hookmask;
- int counthook = (--L->hookcount == 0 && (mask & LUA_MASKCOUNT));
+ int counthook;
+ if (!(mask & (LUA_MASKLINE | LUA_MASKCOUNT))) { /* no hooks? */
+ ci->u.l.trap = 0; /* don't need to stop again */
+ return 0; /* turn off 'trap' */
+ }
+ pc++; /* reference is always next instruction */
+ ci->u.l.savedpc = pc; /* save 'pc' */
+ counthook = (--L->hookcount == 0 && (mask & LUA_MASKCOUNT));
if (counthook)
resethookcount(L); /* reset count */
else if (!(mask & LUA_MASKLINE))
- return; /* no line hook and count != 0; nothing to be done */
+ return 1; /* no line hook and count != 0; nothing to be done now */
if (ci->callstatus & CIST_HOOKYIELD) { /* called hook last time? */
ci->callstatus &= ~CIST_HOOKYIELD; /* erase mark */
- return; /* do not call hook again (VM yielded, so it did not move) */
+ return 1; /* do not call hook again (VM yielded, so it did not move) */
}
if (!isIT(*(ci->u.l.savedpc - 1)))
L->top = ci->top; /* prepare top */
@@ -801,15 +808,14 @@
luaD_hook(L, LUA_HOOKCOUNT, -1, 0, 0); /* call count hook */
if (mask & LUA_MASKLINE) {
Proto *p = ci_func(ci)->p;
- const Instruction *npc = ci->u.l.savedpc;
- int npci = pcRel(npc, p);
+ int npci = pcRel(pc, p);
if (npci == 0 || /* call linehook when enter a new function, */
- npc <= L->oldpc || /* when jump back (loop), or when */
+ pc <= L->oldpc || /* when jump back (loop), or when */
changedline(p, pcRel(L->oldpc, p), npci)) { /* enter new line */
- int newline = luaG_getfuncline(p, npci); /* new line */
+ int newline = luaG_getfuncline(p, npci);
luaD_hook(L, LUA_HOOKLINE, newline, 0, 0); /* call line hook */
}
- L->oldpc = npc;
+ L->oldpc = pc; /* 'pc' of last call to line hook */
}
if (L->status == LUA_YIELD) { /* did hook yield? */
if (counthook)
@@ -818,5 +824,6 @@
ci->callstatus |= CIST_HOOKYIELD; /* mark that it yielded */
luaD_throw(L, LUA_YIELD);
}
+ return 1; /* keep 'trap' on */
}
diff --git a/ldebug.h b/ldebug.h
index e8652d8..97a7a00 100644
--- a/ldebug.h
+++ b/ldebug.h
@@ -1,5 +1,5 @@
/*
-** $Id: ldebug.h,v 2.15 2017/06/27 11:35:31 roberto Exp roberto $
+** $Id: ldebug.h,v 2.16 2018/01/28 15:13:26 roberto Exp roberto $
** Auxiliary functions from Debug Interface module
** See Copyright Notice in lua.h
*/
@@ -37,7 +37,7 @@
LUAI_FUNC const char *luaG_addinfo (lua_State *L, const char *msg,
TString *src, int line);
LUAI_FUNC l_noret luaG_errormsg (lua_State *L);
-LUAI_FUNC void luaG_traceexec (lua_State *L);
+LUAI_FUNC int luaG_traceexec (lua_State *L, const Instruction *pc);
#endif
diff --git a/lvm.c b/lvm.c
index 9e044aa..347a826 100644
--- a/lvm.c
+++ b/lvm.c
@@ -1,5 +1,5 @@
/*
-** $Id: lvm.c,v 2.352 2018/04/02 17:52:07 roberto Exp roberto $
+** $Id: lvm.c,v 2.353 2018/04/04 14:23:41 roberto Exp roberto $
** Lua virtual machine
** See Copyright Notice in lua.h
*/
@@ -489,7 +489,7 @@
case LUA_TNIL: return 1;
case LUA_TNUMINT: return (ivalue(t1) == ivalue(t2));
case LUA_TNUMFLT: return luai_numeq(fltvalue(t1), fltvalue(t2));
- case LUA_TBOOLEAN: return bvalue(t1) == bvalue(t2); /* true must be 1 !! */
+ case LUA_TBOOLEAN: return bvalue(t1) == bvalue(t2); /* true must be 1! */
case LUA_TLIGHTUSERDATA: return pvalue(t1) == pvalue(t2);
case LUA_TLCF: return fvalue(t1) == fvalue(t2);
case LUA_TSHRSTR: return eqshrstr(tsvalue(t1), tsvalue(t2));
@@ -867,15 +867,12 @@
/* fetch an instruction and prepare its execution */
#define vmfetch() { \
- i = *(pc++); \
- if (trap) { \
- if (!(L->hookmask & (LUA_MASKLINE | LUA_MASKCOUNT))) \
- trap = ci->u.l.trap = 0; /* no need to stop again */ \
- else { savepc(L); luaG_traceexec(L); } \
- updatebase(ci); /* the trap may be just for that */ \
+ if (trap) { /* stack reallocation or hooks? */ \
+ trap = luaG_traceexec(L, pc); /* handle hooks */ \
+ updatebase(ci); /* correct stack */ \
} \
+ i = *(pc++); \
ra = RA(i); /* WARNING: any stack reallocation invalidates 'ra' */ \
- vra = s2v(ra); \
}
#define vmdispatch(o) switch(o)
@@ -899,7 +896,7 @@
pc = ci->u.l.savedpc;
if (trap) {
if (cl->p->is_vararg)
- trap = 0; /* hooks will start with PREPVARARG instruction */
+ trap = 0; /* hooks will start after PREPVARARG instruction */
else if (pc == cl->p->code) /* first instruction (not resuming)? */
luaD_hookcall(L, ci);
ci->u.l.trap = 1; /* there may be other hooks */
@@ -910,7 +907,6 @@
int cond; /* flag for conditional jumps */
Instruction i; /* instruction being executed */
StkId ra; /* instruction's A register */
- TValue *vra; /* corresponding value */
vmfetch();
lua_assert(base == ci->func + 1);
lua_assert(base <= L->top && L->top < L->stack + L->stacksize);
@@ -927,12 +923,12 @@
}
vmcase(OP_LOADI) {
lua_Integer b = GETARG_sBx(i);
- setivalue(vra, b);
+ setivalue(s2v(ra), b);
vmbreak;
}
vmcase(OP_LOADF) {
int b = GETARG_sBx(i);
- setfltvalue(vra, cast_num(b));
+ setfltvalue(s2v(ra), cast_num(b));
vmbreak;
}
vmcase(OP_LOADKX) {
@@ -942,7 +938,7 @@
vmbreak;
}
vmcase(OP_LOADBOOL) {
- setbvalue(vra, GETARG_B(i));
+ setbvalue(s2v(ra), GETARG_B(i));
if (GETARG_C(i)) pc++; /* skip next instruction (if C) */
vmbreak;
}
@@ -960,8 +956,8 @@
}
vmcase(OP_SETUPVAL) {
UpVal *uv = cl->upvals[GETARG_B(i)];
- setobj(L, uv->v, vra);
- luaC_barrier(L, uv, vra);
+ setobj(L, uv->v, s2v(ra));
+ luaC_barrier(L, uv, s2v(ra));
vmbreak;
}
vmcase(OP_GETTABUP) {
@@ -1035,25 +1031,25 @@
TValue *rc = RKC(i); /* value */
lua_Unsigned n;
if (ttisinteger(rb) /* fast track for integers? */
- ? (n = ivalue(rb), luaV_fastgeti(L, vra, n, slot))
- : luaV_fastget(L, vra, rb, slot, luaH_get)) {
- luaV_finishfastset(L, vra, slot, rc);
+ ? (n = ivalue(rb), luaV_fastgeti(L, s2v(ra), n, slot))
+ : luaV_fastget(L, s2v(ra), rb, slot, luaH_get)) {
+ luaV_finishfastset(L, s2v(ra), slot, rc);
}
else
- Protect(luaV_finishset(L, vra, rb, rc, slot));
+ Protect(luaV_finishset(L, s2v(ra), rb, rc, slot));
vmbreak;
}
vmcase(OP_SETI) {
const TValue *slot;
int c = GETARG_B(i);
TValue *rc = RKC(i);
- if (luaV_fastgeti(L, vra, c, slot)) {
- luaV_finishfastset(L, vra, slot, rc);
+ if (luaV_fastgeti(L, s2v(ra), c, slot)) {
+ luaV_finishfastset(L, s2v(ra), slot, rc);
}
else {
TValue key;
setivalue(&key, c);
- Protect(luaV_finishset(L, vra, &key, rc, slot));
+ Protect(luaV_finishset(L, s2v(ra), &key, rc, slot));
}
vmbreak;
}
@@ -1062,11 +1058,11 @@
TValue *rb = KB(i);
TValue *rc = RKC(i);
TString *key = tsvalue(rb); /* key must be a string */
- if (luaV_fastget(L, vra, key, slot, luaH_getshortstr)) {
- luaV_finishfastset(L, vra, slot, rc);
+ if (luaV_fastget(L, s2v(ra), key, slot, luaH_getshortstr)) {
+ luaV_finishfastset(L, s2v(ra), slot, rc);
}
else
- Protect(luaV_finishset(L, vra, rb, rc, slot));
+ Protect(luaV_finishset(L, s2v(ra), rb, rc, slot));
vmbreak;
}
vmcase(OP_NEWTABLE) {
@@ -1099,10 +1095,10 @@
int ic = GETARG_sC(i);
lua_Number nb;
if (ttisinteger(rb)) {
- setivalue(vra, intop(+, ivalue(rb), ic));
+ setivalue(s2v(ra), intop(+, ivalue(rb), ic));
}
else if (tonumberns(rb, nb)) {
- setfltvalue(vra, luai_numadd(L, nb, cast_num(ic)));
+ setfltvalue(s2v(ra), luai_numadd(L, nb, cast_num(ic)));
}
else
Protect(luaT_trybiniTM(L, rb, ic, GETARG_k(i), ra, TM_ADD));
@@ -1113,10 +1109,10 @@
int ic = GETARG_sC(i);
lua_Number nb;
if (ttisinteger(rb)) {
- setivalue(vra, intop(-, ivalue(rb), ic));
+ setivalue(s2v(ra), intop(-, ivalue(rb), ic));
}
else if (tonumberns(rb, nb)) {
- setfltvalue(vra, luai_numsub(L, nb, cast_num(ic)));
+ setfltvalue(s2v(ra), luai_numsub(L, nb, cast_num(ic)));
}
else
Protect(luaT_trybiniTM(L, rb, ic, 0, ra, TM_SUB));
@@ -1127,10 +1123,10 @@
int ic = GETARG_sC(i);
lua_Number nb;
if (ttisinteger(rb)) {
- setivalue(vra, intop(*, ivalue(rb), ic));
+ setivalue(s2v(ra), intop(*, ivalue(rb), ic));
}
else if (tonumberns(rb, nb)) {
- setfltvalue(vra, luai_nummul(L, nb, cast_num(ic)));
+ setfltvalue(s2v(ra), luai_nummul(L, nb, cast_num(ic)));
}
else
Protect(luaT_trybiniTM(L, rb, ic, GETARG_k(i), ra, TM_MUL));
@@ -1141,13 +1137,13 @@
int ic = GETARG_sC(i);
lua_Number nb;
if (ttisinteger(rb)) {
- setivalue(vra, luaV_mod(L, ivalue(rb), ic));
+ setivalue(s2v(ra), luaV_mod(L, ivalue(rb), ic));
}
else if (tonumberns(rb, nb)) {
lua_Number m;
lua_Number nc = cast_num(ic);
luai_nummod(L, nb, nc, m);
- setfltvalue(vra, m);
+ setfltvalue(s2v(ra), m);
}
else
Protect(luaT_trybiniTM(L, rb, ic, 0, ra, TM_MOD));
@@ -1159,7 +1155,7 @@
lua_Number nb;
if (tonumberns(rb, nb)) {
lua_Number nc = cast_num(ic);
- setfltvalue(vra, luai_numpow(L, nb, nc));
+ setfltvalue(s2v(ra), luai_numpow(L, nb, nc));
}
else
Protect(luaT_trybiniTM(L, rb, ic, 0, ra, TM_POW));
@@ -1171,7 +1167,7 @@
lua_Number nb;
if (tonumberns(rb, nb)) {
lua_Number nc = cast_num(ic);
- setfltvalue(vra, luai_numdiv(L, nb, nc));
+ setfltvalue(s2v(ra), luai_numdiv(L, nb, nc));
}
else
Protect(luaT_trybiniTM(L, rb, ic, 0, ra, TM_DIV));
@@ -1182,11 +1178,11 @@
int ic = GETARG_sC(i);
lua_Number nb;
if (ttisinteger(rb)) {
- setivalue(vra, luaV_div(L, ivalue(rb), ic));
+ setivalue(s2v(ra), luaV_div(L, ivalue(rb), ic));
}
else if (tonumberns(rb, nb)) {
lua_Number nc = cast_num(ic);
- setfltvalue(vra, luai_numdiv(L, nb, nc));
+ setfltvalue(s2v(ra), luai_numdiv(L, nb, nc));
}
else
Protect(luaT_trybiniTM(L, rb, ic, 0, ra, TM_IDIV));
@@ -1198,10 +1194,10 @@
lua_Number nb; lua_Number nc;
if (ttisinteger(rb) && ttisinteger(rc)) {
lua_Integer ib = ivalue(rb); lua_Integer ic = ivalue(rc);
- setivalue(vra, intop(+, ib, ic));
+ setivalue(s2v(ra), intop(+, ib, ic));
}
else if (tonumberns(rb, nb) && tonumberns(rc, nc)) {
- setfltvalue(vra, luai_numadd(L, nb, nc));
+ setfltvalue(s2v(ra), luai_numadd(L, nb, nc));
}
else
Protect(luaT_trybinTM(L, rb, rc, ra, TM_ADD));
@@ -1213,10 +1209,10 @@
lua_Number nb; lua_Number nc;
if (ttisinteger(rb) && ttisinteger(rc)) {
lua_Integer ib = ivalue(rb); lua_Integer ic = ivalue(rc);
- setivalue(vra, intop(-, ib, ic));
+ setivalue(s2v(ra), intop(-, ib, ic));
}
else if (tonumberns(rb, nb) && tonumberns(rc, nc)) {
- setfltvalue(vra, luai_numsub(L, nb, nc));
+ setfltvalue(s2v(ra), luai_numsub(L, nb, nc));
}
else
Protect(luaT_trybinTM(L, rb, rc, ra, TM_SUB));
@@ -1228,10 +1224,10 @@
lua_Number nb; lua_Number nc;
if (ttisinteger(rb) && ttisinteger(rc)) {
lua_Integer ib = ivalue(rb); lua_Integer ic = ivalue(rc);
- setivalue(vra, intop(*, ib, ic));
+ setivalue(s2v(ra), intop(*, ib, ic));
}
else if (tonumberns(rb, nb) && tonumberns(rc, nc)) {
- setfltvalue(vra, luai_nummul(L, nb, nc));
+ setfltvalue(s2v(ra), luai_nummul(L, nb, nc));
}
else
Protect(luaT_trybinTM(L, rb, rc, ra, TM_MUL));
@@ -1242,7 +1238,7 @@
TValue *rc = vRC(i);
lua_Number nb; lua_Number nc;
if (tonumberns(rb, nb) && tonumberns(rc, nc)) {
- setfltvalue(vra, luai_numdiv(L, nb, nc));
+ setfltvalue(s2v(ra), luai_numdiv(L, nb, nc));
}
else
Protect(luaT_trybinTM(L, rb, rc, ra, TM_DIV));
@@ -1253,7 +1249,7 @@
TValue *p2 = KC(i);
lua_Integer i1;
if (tointegerns(p1, &i1)) {
- setivalue(vra, intop(&, i1, ivalue(p2)));
+ setivalue(s2v(ra), intop(&, i1, ivalue(p2)));
}
else
Protect(luaT_trybinassocTM(L, p1, p2, ra, TESTARG_k(i), TM_BAND));
@@ -1264,7 +1260,7 @@
TValue *p2 = KC(i);
lua_Integer i1;
if (tointegerns(p1, &i1)) {
- setivalue(vra, intop(|, i1, ivalue(p2)));
+ setivalue(s2v(ra), intop(|, i1, ivalue(p2)));
}
else
Protect(luaT_trybinassocTM(L, p1, p2, ra, TESTARG_k(i), TM_BOR));
@@ -1275,7 +1271,7 @@
TValue *p2 = KC(i);
lua_Integer i1;
if (tointegerns(p1, &i1)) {
- setivalue(vra, intop(^, i1, ivalue(p2)));
+ setivalue(s2v(ra), intop(^, i1, ivalue(p2)));
}
else
Protect(luaT_trybinassocTM(L, p1, p2, ra, TESTARG_k(i), TM_BXOR));
@@ -1286,7 +1282,7 @@
TValue *rc = vRC(i);
lua_Integer ib; lua_Integer ic;
if (tointegerns(rb, &ib) && tointegerns(rc, &ic)) {
- setivalue(vra, intop(&, ib, ic));
+ setivalue(s2v(ra), intop(&, ib, ic));
}
else
Protect(luaT_trybinTM(L, rb, rc, ra, TM_BAND));
@@ -1297,7 +1293,7 @@
TValue *rc = vRC(i);
lua_Integer ib; lua_Integer ic;
if (tointegerns(rb, &ib) && tointegerns(rc, &ic)) {
- setivalue(vra, intop(|, ib, ic));
+ setivalue(s2v(ra), intop(|, ib, ic));
}
else
Protect(luaT_trybinTM(L, rb, rc, ra, TM_BOR));
@@ -1308,7 +1304,7 @@
TValue *rc = vRC(i);
lua_Integer ib; lua_Integer ic;
if (tointegerns(rb, &ib) && tointegerns(rc, &ic)) {
- setivalue(vra, intop(^, ib, ic));
+ setivalue(s2v(ra), intop(^, ib, ic));
}
else
Protect(luaT_trybinTM(L, rb, rc, ra, TM_BXOR));
@@ -1319,7 +1315,7 @@
int ic = GETARG_sC(i);
lua_Integer ib;
if (tointegerns(rb, &ib)) {
- setivalue(vra, luaV_shiftl(ib, -ic));
+ setivalue(s2v(ra), luaV_shiftl(ib, -ic));
}
else {
TMS ev = TM_SHR;
@@ -1335,7 +1331,7 @@
int ic = GETARG_sC(i);
lua_Integer ib;
if (tointegerns(rb, &ib)) {
- setivalue(vra, luaV_shiftl(ic, ib));
+ setivalue(s2v(ra), luaV_shiftl(ic, ib));
}
else
Protect(luaT_trybiniTM(L, rb, ic, 1, ra, TM_SHL));
@@ -1346,7 +1342,7 @@
TValue *rc = vRC(i);
lua_Integer ib; lua_Integer ic;
if (tointegerns(rb, &ib) && tointegerns(rc, &ic)) {
- setivalue(vra, luaV_shiftl(ib, ic));
+ setivalue(s2v(ra), luaV_shiftl(ib, ic));
}
else
Protect(luaT_trybinTM(L, rb, rc, ra, TM_SHL));
@@ -1357,7 +1353,7 @@
TValue *rc = vRC(i);
lua_Integer ib; lua_Integer ic;
if (tointegerns(rb, &ib) && tointegerns(rc, &ic)) {
- setivalue(vra, luaV_shiftl(ib, -ic));
+ setivalue(s2v(ra), luaV_shiftl(ib, -ic));
}
else
Protect(luaT_trybinTM(L, rb, rc, ra, TM_SHR));
@@ -1369,12 +1365,12 @@
lua_Number nb; lua_Number nc;
if (ttisinteger(rb) && ttisinteger(rc)) {
lua_Integer ib = ivalue(rb); lua_Integer ic = ivalue(rc);
- setivalue(vra, luaV_mod(L, ib, ic));
+ setivalue(s2v(ra), luaV_mod(L, ib, ic));
}
else if (tonumberns(rb, nb) && tonumberns(rc, nc)) {
lua_Number m;
luai_nummod(L, nb, nc, m);
- setfltvalue(vra, m);
+ setfltvalue(s2v(ra), m);
}
else
Protect(luaT_trybinTM(L, rb, rc, ra, TM_MOD));
@@ -1386,10 +1382,10 @@
lua_Number nb; lua_Number nc;
if (ttisinteger(rb) && ttisinteger(rc)) {
lua_Integer ib = ivalue(rb); lua_Integer ic = ivalue(rc);
- setivalue(vra, luaV_div(L, ib, ic));
+ setivalue(s2v(ra), luaV_div(L, ib, ic));
}
else if (tonumberns(rb, nb) && tonumberns(rc, nc)) {
- setfltvalue(vra, luai_numidiv(L, nb, nc));
+ setfltvalue(s2v(ra), luai_numidiv(L, nb, nc));
}
else
Protect(luaT_trybinTM(L, rb, rc, ra, TM_IDIV));
@@ -1400,7 +1396,7 @@
TValue *rc = vRC(i);
lua_Number nb; lua_Number nc;
if (tonumberns(rb, nb) && tonumberns(rc, nc)) {
- setfltvalue(vra, luai_numpow(L, nb, nc));
+ setfltvalue(s2v(ra), luai_numpow(L, nb, nc));
}
else
Protect(luaT_trybinTM(L, rb, rc, ra, TM_POW));
@@ -1411,10 +1407,10 @@
lua_Number nb;
if (ttisinteger(rb)) {
lua_Integer ib = ivalue(rb);
- setivalue(vra, intop(-, 0, ib));
+ setivalue(s2v(ra), intop(-, 0, ib));
}
else if (tonumberns(rb, nb)) {
- setfltvalue(vra, luai_numunm(L, nb));
+ setfltvalue(s2v(ra), luai_numunm(L, nb));
}
else
Protect(luaT_trybinTM(L, rb, rb, ra, TM_UNM));
@@ -1424,7 +1420,7 @@
TValue *rb = vRB(i);
lua_Integer ib;
if (tointegerns(rb, &ib)) {
- setivalue(vra, intop(^, ~l_castS2U(0), ib));
+ setivalue(s2v(ra), intop(^, ~l_castS2U(0), ib));
}
else
Protect(luaT_trybinTM(L, rb, rb, ra, TM_BNOT));
@@ -1433,7 +1429,7 @@
vmcase(OP_NOT) {
TValue *rb = vRB(i);
int nrb = l_isfalse(rb); /* next assignment may change this value */
- setbvalue(vra, nrb);
+ setbvalue(s2v(ra), nrb);
vmbreak;
}
vmcase(OP_LEN) {
@@ -1457,45 +1453,45 @@
}
vmcase(OP_EQ) {
TValue *rb = vRB(i);
- Protect(cond = luaV_equalobj(L, vra, rb));
+ Protect(cond = luaV_equalobj(L, s2v(ra), rb));
docondjump();
vmbreak;
}
vmcase(OP_LT) {
TValue *rb = vRB(i);
- if (ttisinteger(vra) && ttisinteger(rb))
- cond = (ivalue(vra) < ivalue(rb));
- else if (ttisnumber(vra) && ttisnumber(rb))
- cond = LTnum(vra, rb);
+ if (ttisinteger(s2v(ra)) && ttisinteger(rb))
+ cond = (ivalue(s2v(ra)) < ivalue(rb));
+ else if (ttisnumber(s2v(ra)) && ttisnumber(rb))
+ cond = LTnum(s2v(ra), rb);
else
- Protect(cond = lessthanothers(L, vra, rb));
+ Protect(cond = lessthanothers(L, s2v(ra), rb));
docondjump();
vmbreak;
}
vmcase(OP_LE) {
TValue *rb = vRB(i);
- if (ttisinteger(vra) && ttisinteger(rb))
- cond = (ivalue(vra) <= ivalue(rb));
- else if (ttisnumber(vra) && ttisnumber(rb))
- cond = LEnum(vra, rb);
+ if (ttisinteger(s2v(ra)) && ttisinteger(rb))
+ cond = (ivalue(s2v(ra)) <= ivalue(rb));
+ else if (ttisnumber(s2v(ra)) && ttisnumber(rb))
+ cond = LEnum(s2v(ra), rb);
else
- Protect(cond = lessequalothers(L, vra, rb));
+ Protect(cond = lessequalothers(L, s2v(ra), rb));
docondjump();
vmbreak;
}
vmcase(OP_EQK) {
TValue *rb = KB(i);
/* basic types do not use '__eq'; we can use raw equality */
- cond = luaV_equalobj(NULL, vra, rb);
+ cond = luaV_equalobj(NULL, s2v(ra), rb);
docondjump();
vmbreak;
}
vmcase(OP_EQI) {
int im = GETARG_sB(i);
- if (ttisinteger(vra))
- cond = (ivalue(vra) == im);
- else if (ttisfloat(vra))
- cond = luai_numeq(fltvalue(vra), cast_num(im));
+ if (ttisinteger(s2v(ra)))
+ cond = (ivalue(s2v(ra)) == im);
+ else if (ttisfloat(s2v(ra)))
+ cond = luai_numeq(fltvalue(s2v(ra)), cast_num(im));
else
cond = 0; /* other types cannot be equal to a number */
docondjump();
@@ -1503,50 +1499,50 @@
}
vmcase(OP_LTI) {
int im = GETARG_sB(i);
- if (ttisinteger(vra))
- cond = (ivalue(vra) < im);
- else if (ttisfloat(vra))
- cond = luai_numlt(fltvalue(vra), cast_num(im));
+ if (ttisinteger(s2v(ra)))
+ cond = (ivalue(s2v(ra)) < im);
+ else if (ttisfloat(s2v(ra)))
+ cond = luai_numlt(fltvalue(s2v(ra)), cast_num(im));
else
- Protect(cond = luaT_callorderiTM(L, vra, im, 0, TM_LT));
+ Protect(cond = luaT_callorderiTM(L, s2v(ra), im, 0, TM_LT));
docondjump();
vmbreak;
}
vmcase(OP_LEI) {
int im = GETARG_sB(i);
- if (ttisinteger(vra))
- cond = (ivalue(vra) <= im);
- else if (ttisfloat(vra))
- cond = luai_numle(fltvalue(vra), cast_num(im));
+ if (ttisinteger(s2v(ra)))
+ cond = (ivalue(s2v(ra)) <= im);
+ else if (ttisfloat(s2v(ra)))
+ cond = luai_numle(fltvalue(s2v(ra)), cast_num(im));
else
- Protect(cond = luaT_callorderiTM(L, vra, im, 0, TM_LE));
+ Protect(cond = luaT_callorderiTM(L, s2v(ra), im, 0, TM_LE));
docondjump();
vmbreak;
}
vmcase(OP_GTI) {
int im = GETARG_sB(i);
- if (ttisinteger(vra))
- cond = (im < ivalue(vra));
- else if (ttisfloat(vra))
- cond = luai_numlt(cast_num(im), fltvalue(vra));
+ if (ttisinteger(s2v(ra)))
+ cond = (im < ivalue(s2v(ra)));
+ else if (ttisfloat(s2v(ra)))
+ cond = luai_numlt(cast_num(im), fltvalue(s2v(ra)));
else
- Protect(cond = luaT_callorderiTM(L, vra, im, 1, TM_LT));
+ Protect(cond = luaT_callorderiTM(L, s2v(ra), im, 1, TM_LT));
docondjump();
vmbreak;
}
vmcase(OP_GEI) {
int im = GETARG_sB(i);
- if (ttisinteger(vra))
- cond = (im <= ivalue(vra));
- else if (ttisfloat(vra))
- cond = luai_numle(cast_num(im), fltvalue(vra));
+ if (ttisinteger(s2v(ra)))
+ cond = (im <= ivalue(s2v(ra)));
+ else if (ttisfloat(s2v(ra)))
+ cond = luai_numle(cast_num(im), fltvalue(s2v(ra)));
else
- Protect(cond = luaT_callorderiTM(L, vra, im, 1, TM_LE));
+ Protect(cond = luaT_callorderiTM(L, s2v(ra), im, 1, TM_LE));
docondjump();
vmbreak;
}
vmcase(OP_TEST) {
- cond = !l_isfalse(vra);
+ cond = !l_isfalse(s2v(ra));
docondjump();
vmbreak;
}
@@ -1583,11 +1579,11 @@
delta = ci->u.l.nextraargs + nparams1;
luaF_close(L, base); /* close upvalues from current call */
}
- if (!ttisfunction(vra)) { /* not a function? */
+ if (!ttisfunction(s2v(ra))) { /* not a function? */
luaD_tryfuncTM(L, ra); /* try '__call' metamethod */
b++; /* there is now one extra argument */
}
- if (!ttisLclosure(vra)) { /* C function? */
+ if (!ttisLclosure(s2v(ra))) { /* C function? */
luaD_call(L, ra, LUA_MULTRET); /* call it */
updatetrap(ci);
if (trap) { /* stack may have been relocated */
@@ -1647,18 +1643,18 @@
return;
}
vmcase(OP_FORLOOP1) {
- lua_Integer idx = intop(+, ivalue(vra), 1); /* increment index */
+ lua_Integer idx = intop(+, ivalue(s2v(ra)), 1); /* increment index */
lua_Integer limit = ivalue(s2v(ra + 1));
if (idx <= limit) {
pc -= GETARG_Bx(i); /* jump back */
- chgivalue(vra, idx); /* update internal index... */
+ chgivalue(s2v(ra), idx); /* update internal index... */
setivalue(s2v(ra + 3), idx); /* ...and external index */
}
updatetrap(ci);
vmbreak;
}
vmcase(OP_FORPREP1) {
- TValue *init = vra;
+ TValue *init = s2v(ra);
TValue *plimit = s2v(ra + 1);
lua_Integer ilimit, initv;
int stopnow;
@@ -1673,25 +1669,25 @@
vmbreak;
}
vmcase(OP_FORLOOP) {
- if (ttisinteger(vra)) { /* integer loop? */
+ if (ttisinteger(s2v(ra))) { /* integer loop? */
lua_Integer step = ivalue(s2v(ra + 2));
- lua_Integer idx = intop(+, ivalue(vra), step); /* increment index */
+ lua_Integer idx = intop(+, ivalue(s2v(ra)), step); /* new index */
lua_Integer limit = ivalue(s2v(ra + 1));
if ((0 < step) ? (idx <= limit) : (limit <= idx)) {
pc -= GETARG_Bx(i); /* jump back */
- chgivalue(vra, idx); /* update internal index... */
+ chgivalue(s2v(ra), idx); /* update internal index... */
setivalue(s2v(ra + 3), idx); /* ...and external index */
}
}
else { /* floating loop */
lua_Number step = fltvalue(s2v(ra + 2));
lua_Number limit = fltvalue(s2v(ra + 1));
- lua_Number idx = fltvalue(vra);
+ lua_Number idx = fltvalue(s2v(ra));
idx = luai_numadd(L, idx, step); /* inc. index */
if (luai_numlt(0, step) ? luai_numle(idx, limit)
: luai_numle(limit, idx)) {
pc -= GETARG_Bx(i); /* jump back */
- chgfltvalue(vra, idx); /* update internal index... */
+ chgfltvalue(s2v(ra), idx); /* update internal index... */
setfltvalue(s2v(ra + 3), idx); /* ...and external index */
}
}
@@ -1699,7 +1695,7 @@
vmbreak;
}
vmcase(OP_FORPREP) {
- TValue *init = vra;
+ TValue *init = s2v(ra);
TValue *plimit = s2v(ra + 1);
TValue *pstep = s2v(ra + 2);
lua_Integer ilimit;
@@ -1761,7 +1757,7 @@
if (c == 0) {
c = GETARG_Ax(*pc); pc++;
}
- h = hvalue(vra);
+ h = hvalue(s2v(ra));
last = ((c-1)*LFIELDS_PER_FLUSH) + n;
if (last > h->sizearray) /* needs more space? */
luaH_resizearray(L, h, last); /* preallocate it at once */