aboutsummaryrefslogtreecommitdiff
path: root/lvm.c
diff options
context:
space:
mode:
authorRoberto Ierusalimschy <roberto@inf.puc-rio.br>2001-03-07 15:16:22 -0300
committerRoberto Ierusalimschy <roberto@inf.puc-rio.br>2001-03-07 15:16:22 -0300
commitc5a23cf01aca02a8a8d0ee5f5f558f74b31ded89 (patch)
tree7a5b5107458b8c13d2a1352a3e05118584067c83 /lvm.c
parent6048c4f74d7d63d6c2f5a53cd8e4ee01f6702be9 (diff)
downloadlua-c5a23cf01aca02a8a8d0ee5f5f558f74b31ded89.tar.gz
lua-c5a23cf01aca02a8a8d0ee5f5f558f74b31ded89.tar.bz2
lua-c5a23cf01aca02a8a8d0ee5f5f558f74b31ded89.zip
details
Diffstat (limited to 'lvm.c')
-rw-r--r--lvm.c13
1 files changed, 6 insertions, 7 deletions
diff --git a/lvm.c b/lvm.c
index a8f0dc9f..0a7324a8 100644
--- a/lvm.c
+++ b/lvm.c
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: lvm.c,v 1.174 2001/03/07 13:22:55 roberto Exp roberto $ 2** $Id: lvm.c,v 1.175 2001/03/07 18:09:25 roberto Exp roberto $
3** Lua virtual machine 3** Lua virtual machine
4** See Copyright Notice in lua.h 4** See Copyright Notice in lua.h
5*/ 5*/
@@ -330,7 +330,6 @@ StkId luaV_execute (lua_State *L, const Closure *cl, StkId base) {
330 const Proto *const tf = cl->f.l; 330 const Proto *const tf = cl->f.l;
331 StkId top; /* keep top local, for performance */ 331 StkId top; /* keep top local, for performance */
332 const Instruction *pc = tf->code; 332 const Instruction *pc = tf->code;
333 TString **const kstr = tf->kstr;
334 const lua_Hook linehook = L->linehook; 333 const lua_Hook linehook = L->linehook;
335 L->ci->pc = &pc; 334 L->ci->pc = &pc;
336 if (tf->is_vararg) /* varargs? */ 335 if (tf->is_vararg) /* varargs? */
@@ -375,7 +374,7 @@ StkId luaV_execute (lua_State *L, const Closure *cl, StkId base) {
375 break; 374 break;
376 } 375 }
377 case OP_PUSHSTRING: { 376 case OP_PUSHSTRING: {
378 setsvalue(top, kstr[GETARG_U(i)]); 377 setsvalue(top, tf->kstr[GETARG_U(i)]);
379 top++; 378 top++;
380 break; 379 break;
381 } 380 }
@@ -398,7 +397,7 @@ StkId luaV_execute (lua_State *L, const Closure *cl, StkId base) {
398 break; 397 break;
399 } 398 }
400 case OP_GETGLOBAL: { 399 case OP_GETGLOBAL: {
401 luaV_getglobal(L, kstr[GETARG_U(i)], top); 400 luaV_getglobal(L, tf->kstr[GETARG_U(i)], top);
402 top++; 401 top++;
403 break; 402 break;
404 } 403 }
@@ -408,7 +407,7 @@ StkId luaV_execute (lua_State *L, const Closure *cl, StkId base) {
408 break; 407 break;
409 } 408 }
410 case OP_GETDOTTED: { 409 case OP_GETDOTTED: {
411 setsvalue(top, kstr[GETARG_U(i)]); 410 setsvalue(top, tf->kstr[GETARG_U(i)]);
412 luaV_gettable(L, top-1, top, top-1); 411 luaV_gettable(L, top-1, top, top-1);
413 break; 412 break;
414 } 413 }
@@ -418,7 +417,7 @@ StkId luaV_execute (lua_State *L, const Closure *cl, StkId base) {
418 } 417 }
419 case OP_PUSHSELF: { 418 case OP_PUSHSELF: {
420 setobj(top, top-1); 419 setobj(top, top-1);
421 setsvalue(top+1, kstr[GETARG_U(i)]); 420 setsvalue(top+1, tf->kstr[GETARG_U(i)]);
422 luaV_gettable(L, top-1, top+1, top-1); 421 luaV_gettable(L, top-1, top+1, top-1);
423 top++; 422 top++;
424 break; 423 break;
@@ -435,7 +434,7 @@ StkId luaV_execute (lua_State *L, const Closure *cl, StkId base) {
435 } 434 }
436 case OP_SETGLOBAL: { 435 case OP_SETGLOBAL: {
437 top--; 436 top--;
438 luaV_setglobal(L, kstr[GETARG_U(i)], top); 437 luaV_setglobal(L, tf->kstr[GETARG_U(i)], top);
439 break; 438 break;
440 } 439 }
441 case OP_SETTABLE: { 440 case OP_SETTABLE: {