mirrors/lua
1
0
Fork 0
mirror of https://github.com/lua/lua synced 2025-02-17 05:34:02 +03:00
Code Issues Packages Projects Releases Wiki Activity

details

Browse Source
This commit is contained in:
Roberto Ierusalimschy 2001-03-07 15:16:22 -03:00
parent 6048c4f74d
commit c5a23cf01a
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lvm.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: lvm.c,v 1.174 2001/03/07 13:22:55 roberto Exp roberto $ ** $Id: lvm.c,v 1.175 2001/03/07 18:09:25 roberto Exp roberto $
** Lua virtual machine ** Lua virtual machine
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -330,7 +330,6 @@ StkId luaV_execute (lua_State *L, const Closure *cl, StkId base) {
const Proto *const tf = cl->f.l; const Proto *const tf = cl->f.l;
StkId top; /* keep top local, for performance */ StkId top; /* keep top local, for performance */
const Instruction *pc = tf->code; const Instruction *pc = tf->code;
TString **const kstr = tf->kstr;
const lua_Hook linehook = L->linehook; const lua_Hook linehook = L->linehook;
L->ci->pc = &pc; L->ci->pc = &pc;
if (tf->is_vararg) /* varargs? */ if (tf->is_vararg) /* varargs? */
@ -375,7 +374,7 @@ StkId luaV_execute (lua_State *L, const Closure *cl, StkId base) {
break; break;
} }
case OP_PUSHSTRING: { case OP_PUSHSTRING: {
setsvalue(top, kstr[GETARG_U(i)]); setsvalue(top, tf->kstr[GETARG_U(i)]);
top++; top++;
break; break;
} }
@ -398,7 +397,7 @@ StkId luaV_execute (lua_State *L, const Closure *cl, StkId base) {
break; break;
} }
case OP_GETGLOBAL: { case OP_GETGLOBAL: {
luaV_getglobal(L, kstr[GETARG_U(i)], top); luaV_getglobal(L, tf->kstr[GETARG_U(i)], top);
top++; top++;
break; break;
} }
@ -408,7 +407,7 @@ StkId luaV_execute (lua_State *L, const Closure *cl, StkId base) {
break; break;
} }
case OP_GETDOTTED: { case OP_GETDOTTED: {
setsvalue(top, kstr[GETARG_U(i)]); setsvalue(top, tf->kstr[GETARG_U(i)]);
luaV_gettable(L, top-1, top, top-1); luaV_gettable(L, top-1, top, top-1);
break; break;
} }
@ -418,7 +417,7 @@ StkId luaV_execute (lua_State *L, const Closure *cl, StkId base) {
} }
case OP_PUSHSELF: { case OP_PUSHSELF: {
setobj(top, top-1); setobj(top, top-1);
setsvalue(top+1, kstr[GETARG_U(i)]); setsvalue(top+1, tf->kstr[GETARG_U(i)]);
luaV_gettable(L, top-1, top+1, top-1); luaV_gettable(L, top-1, top+1, top-1);
top++; top++;
break; break;
@ -435,7 +434,7 @@ StkId luaV_execute (lua_State *L, const Closure *cl, StkId base) {
} }
case OP_SETGLOBAL: { case OP_SETGLOBAL: {
top--; top--;
luaV_setglobal(L, kstr[GETARG_U(i)], top); luaV_setglobal(L, tf->kstr[GETARG_U(i)], top);
break; break;
} }
case OP_SETTABLE: { case OP_SETTABLE: {