mirror of https://github.com/lua/lua
detail
This commit is contained in:
Roberto Ierusalimschy
parent
0f5a497ed9
commit
23e08a68f5
72
lvm.c
72
lvm.c
|
|
@ -1,5 +1,5 @@
|
|||
/*
|
||||
** $Id: lvm.c,v 2.8 2004/06/02 19:07:55 roberto Exp roberto $
|
||||
** $Id: lvm.c,v 2.9 2004/06/08 16:23:58 roberto Exp roberto $
|
||||
** Lua virtual machine
|
||||
** See Copyright Notice in lua.h
|
||||
*/
|
||||
|
|
@ -412,53 +412,53 @@ StkId luaV_execute (lua_State *L, int nexeccalls) {
|
|||
switch (GET_OPCODE(i)) {
|
||||
case OP_MOVE: {
|
||||
setobjs2s(L, ra, RB(i));
|
||||
break;
|
||||
continue;
|
||||
}
|
||||
case OP_LOADK: {
|
||||
setobj2s(L, ra, KBx(i));
|
||||
break;
|
||||
continue;
|
||||
}
|
||||
case OP_LOADBOOL: {
|
||||
setbvalue(ra, GETARG_B(i));
|
||||
if (GETARG_C(i)) pc++; /* skip next instruction (if C) */
|
||||
break;
|
||||
continue;
|
||||
}
|
||||
case OP_LOADNIL: {
|
||||
TValue *rb = RB(i);
|
||||
do {
|
||||
setnilvalue(rb--);
|
||||
} while (rb >= ra);
|
||||
break;
|
||||
continue;
|
||||
}
|
||||
case OP_GETUPVAL: {
|
||||
int b = GETARG_B(i);
|
||||
setobj2s(L, ra, cl->upvals[b]->v);
|
||||
break;
|
||||
continue;
|
||||
}
|
||||
case OP_GETGLOBAL: {
|
||||
TValue *rb = KBx(i);
|
||||
lua_assert(ttisstring(rb) && ttistable(&cl->g));
|
||||
base = luaV_gettable(L, &cl->g, rb, ra, pc); /***/
|
||||
break;
|
||||
continue;
|
||||
}
|
||||
case OP_GETTABLE: {
|
||||
base = luaV_gettable(L, RB(i), RKC(i), ra, pc); /***/
|
||||
break;
|
||||
continue;
|
||||
}
|
||||
case OP_SETGLOBAL: {
|
||||
lua_assert(ttisstring(KBx(i)) && ttistable(&cl->g));
|
||||
base = luaV_settable(L, &cl->g, KBx(i), ra, pc); /***/
|
||||
break;
|
||||
continue;
|
||||
}
|
||||
case OP_SETUPVAL: {
|
||||
UpVal *uv = cl->upvals[GETARG_B(i)];
|
||||
setobj(L, uv->v, ra);
|
||||
luaC_barrier(L, uv, ra);
|
||||
break;
|
||||
continue;
|
||||
}
|
||||
case OP_SETTABLE: {
|
||||
base = luaV_settable(L, ra, RKB(i), RKC(i), pc); /***/
|
||||
break;
|
||||
continue;
|
||||
}
|
||||
case OP_NEWTABLE: {
|
||||
int b = GETARG_B(i);
|
||||
|
|
@ -467,13 +467,13 @@ StkId luaV_execute (lua_State *L, int nexeccalls) {
|
|||
L->ci->savedpc = pc;
|
||||
luaC_checkGC(L); /***/
|
||||
base = L->base;
|
||||
break;
|
||||
continue;
|
||||
}
|
||||
case OP_SELF: {
|
||||
StkId rb = RB(i);
|
||||
setobjs2s(L, ra+1, rb);
|
||||
base = luaV_gettable(L, rb, RKC(i), ra, pc); /***/
|
||||
break;
|
||||
continue;
|
||||
}
|
||||
case OP_ADD: {
|
||||
TValue *rb = RKB(i);
|
||||
|
|
@ -483,7 +483,7 @@ StkId luaV_execute (lua_State *L, int nexeccalls) {
|
|||
}
|
||||
else
|
||||
base = Arith(L, ra, rb, rc, TM_ADD, pc); /***/
|
||||
break;
|
||||
continue;
|
||||
}
|
||||
case OP_SUB: {
|
||||
TValue *rb = RKB(i);
|
||||
|
|
@ -493,7 +493,7 @@ StkId luaV_execute (lua_State *L, int nexeccalls) {
|
|||
}
|
||||
else
|
||||
base = Arith(L, ra, rb, rc, TM_SUB, pc); /***/
|
||||
break;
|
||||
continue;
|
||||
}
|
||||
case OP_MUL: {
|
||||
TValue *rb = RKB(i);
|
||||
|
|
@ -503,7 +503,7 @@ StkId luaV_execute (lua_State *L, int nexeccalls) {
|
|||
}
|
||||
else
|
||||
base = Arith(L, ra, rb, rc, TM_MUL, pc); /***/
|
||||
break;
|
||||
continue;
|
||||
}
|
||||
case OP_DIV: {
|
||||
TValue *rb = RKB(i);
|
||||
|
|
@ -513,11 +513,11 @@ StkId luaV_execute (lua_State *L, int nexeccalls) {
|
|||
}
|
||||
else
|
||||
base = Arith(L, ra, rb, rc, TM_DIV, pc); /***/
|
||||
break;
|
||||
continue;
|
||||
}
|
||||
case OP_POW: {
|
||||
base = Arith(L, ra, RKB(i), RKC(i), TM_POW, pc); /***/
|
||||
break;
|
||||
continue;
|
||||
}
|
||||
case OP_UNM: {
|
||||
const TValue *rb = RB(i);
|
||||
|
|
@ -532,12 +532,12 @@ StkId luaV_execute (lua_State *L, int nexeccalls) {
|
|||
luaG_aritherror(L, RB(i), &temp);
|
||||
base = L->base;
|
||||
}
|
||||
break;
|
||||
continue;
|
||||
}
|
||||
case OP_NOT: {
|
||||
int res = l_isfalse(RB(i)); /* next assignment may change this value */
|
||||
setbvalue(ra, res);
|
||||
break;
|
||||
continue;
|
||||
}
|
||||
case OP_CONCAT: {
|
||||
int b = GETARG_B(i);
|
||||
|
|
@ -547,32 +547,32 @@ StkId luaV_execute (lua_State *L, int nexeccalls) {
|
|||
luaC_checkGC(L); /***/
|
||||
base = L->base;
|
||||
setobjs2s(L, RA(i), base+b);
|
||||
break;
|
||||
continue;
|
||||
}
|
||||
case OP_JMP: {
|
||||
dojump(L, pc, GETARG_sBx(i));
|
||||
break;
|
||||
continue;
|
||||
}
|
||||
case OP_EQ: {
|
||||
L->ci->savedpc = pc;
|
||||
if (equalobj(L, RKB(i), RKC(i)) != GETARG_A(i)) pc++; /***/
|
||||
else dojump(L, pc, GETARG_sBx(*pc) + 1);
|
||||
base = L->base;
|
||||
break;
|
||||
continue;
|
||||
}
|
||||
case OP_LT: {
|
||||
L->ci->savedpc = pc;
|
||||
if (luaV_lessthan(L, RKB(i), RKC(i)) != GETARG_A(i)) pc++; /***/
|
||||
else dojump(L, pc, GETARG_sBx(*pc) + 1);
|
||||
base = L->base;
|
||||
break;
|
||||
continue;
|
||||
}
|
||||
case OP_LE: {
|
||||
L->ci->savedpc = pc;
|
||||
if (luaV_lessequal(L, RKB(i), RKC(i)) != GETARG_A(i)) pc++; /***/
|
||||
else dojump(L, pc, GETARG_sBx(*pc) + 1);
|
||||
base = L->base;
|
||||
break;
|
||||
continue;
|
||||
}
|
||||
case OP_TEST: {
|
||||
TValue *rb = RB(i);
|
||||
|
|
@ -581,7 +581,7 @@ StkId luaV_execute (lua_State *L, int nexeccalls) {
|
|||
setobjs2s(L, ra, rb);
|
||||
dojump(L, pc, GETARG_sBx(*pc) + 1);
|
||||
}
|
||||
break;
|
||||
continue;
|
||||
}
|
||||
case OP_CALL: { /***/
|
||||
int pcr;
|
||||
|
|
@ -598,7 +598,7 @@ StkId luaV_execute (lua_State *L, int nexeccalls) {
|
|||
/* it was a C function (`precall' called it); adjust results */
|
||||
if (nresults >= 0) L->top = L->ci->top;
|
||||
base = L->base;
|
||||
break;
|
||||
continue;
|
||||
}
|
||||
else {
|
||||
lua_assert(pcr == PCRYIELD);
|
||||
|
|
@ -632,7 +632,7 @@ StkId luaV_execute (lua_State *L, int nexeccalls) {
|
|||
else if (pcr == PCRC) {
|
||||
/* it was a C function (`precall' called it) */
|
||||
base = L->base;
|
||||
break;
|
||||
continue;
|
||||
}
|
||||
else {
|
||||
lua_assert(pcr == PCRYIELD);
|
||||
|
|
@ -665,7 +665,7 @@ StkId luaV_execute (lua_State *L, int nexeccalls) {
|
|||
setnvalue(ra, idx); /* update internal index... */
|
||||
setnvalue(ra+3, idx); /* ...and external index */
|
||||
}
|
||||
break;
|
||||
continue;
|
||||
}
|
||||
case OP_FORPREP: { /***/
|
||||
const TValue *init = ra;
|
||||
|
|
@ -680,7 +680,7 @@ StkId luaV_execute (lua_State *L, int nexeccalls) {
|
|||
luaG_runerror(L, "`for' step must be a number");
|
||||
setnvalue(ra, nvalue(ra) - nvalue(pstep));
|
||||
dojump(L, pc, GETARG_sBx(i));
|
||||
break;
|
||||
continue;
|
||||
}
|
||||
case OP_TFORLOOP: {
|
||||
StkId cb = ra + 3; /* call base */
|
||||
|
|
@ -699,7 +699,7 @@ StkId luaV_execute (lua_State *L, int nexeccalls) {
|
|||
setobjs2s(L, cb-1, cb); /* save control variable */
|
||||
dojump(L, pc, GETARG_sBx(*pc) + 1); /* jump back */
|
||||
}
|
||||
break;
|
||||
continue;
|
||||
}
|
||||
case OP_TFORPREP: { /* for compatibility only */
|
||||
if (ttistable(ra)) {
|
||||
|
|
@ -707,7 +707,7 @@ StkId luaV_execute (lua_State *L, int nexeccalls) {
|
|||
setobj2s(L, ra, luaH_getstr(hvalue(gt(L)), luaS_new(L, "next")));
|
||||
}
|
||||
dojump(L, pc, GETARG_sBx(i));
|
||||
break;
|
||||
continue;
|
||||
}
|
||||
case OP_SETLIST:
|
||||
case OP_SETLISTO: {
|
||||
|
|
@ -731,11 +731,11 @@ StkId luaV_execute (lua_State *L, int nexeccalls) {
|
|||
setobj2t(L, luaH_setnum(L, h, last--), val);
|
||||
luaC_barrier(L, h, val);
|
||||
}
|
||||
break;
|
||||
continue;
|
||||
}
|
||||
case OP_CLOSE: {
|
||||
luaF_close(L, ra);
|
||||
break;
|
||||
continue;
|
||||
}
|
||||
case OP_CLOSURE: {
|
||||
Proto *p;
|
||||
|
|
@ -757,7 +757,7 @@ StkId luaV_execute (lua_State *L, int nexeccalls) {
|
|||
L->ci->savedpc = pc;
|
||||
luaC_checkGC(L); /***/
|
||||
base = L->base;
|
||||
break;
|
||||
continue;
|
||||
}
|
||||
case OP_VARARG: {
|
||||
int b = GETARG_B(i) - 1;
|
||||
|
|
@ -772,7 +772,7 @@ StkId luaV_execute (lua_State *L, int nexeccalls) {
|
|||
setobjs2s(L, ra+j, ci->base - n + j);
|
||||
for (; j<b; j++)
|
||||
setnilvalue(ra+j);
|
||||
break;
|
||||
continue;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
|
|
|||
Loading…
Reference in New Issue