aboutsummaryrefslogtreecommitdiff
path: root/lvm.c
diff options
context:
space:
mode:
authorRoberto Ierusalimschy <roberto@inf.puc-rio.br>2000-02-08 14:39:42 -0200
committerRoberto Ierusalimschy <roberto@inf.puc-rio.br>2000-02-08 14:39:42 -0200
commit74f1c3d025c6d8a714454470a953f383a1c6a641 (patch)
treecc89dfa109c64ed928217d777959ffc7ace12501 /lvm.c
parent1f691a4fcd32b706c79e4c8cbff17c6ae985bc34 (diff)
downloadlua-74f1c3d025c6d8a714454470a953f383a1c6a641.tar.gz
lua-74f1c3d025c6d8a714454470a953f383a1c6a641.tar.bz2
lua-74f1c3d025c6d8a714454470a953f383a1c6a641.zip
small changes for "clean C"
Diffstat (limited to 'lvm.c')
-rw-r--r--lvm.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/lvm.c b/lvm.c
index 463373b3..1a94e3f4 100644
--- a/lvm.c
+++ b/lvm.c
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: lvm.c,v 1.83 2000/01/25 13:57:18 roberto Exp roberto $ 2** $Id: lvm.c,v 1.84 2000/01/28 16:53:00 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*/
@@ -311,7 +311,7 @@ static void adjust_varargs (lua_State *L, StkId base, int nfixargs) {
311** Returns n such that the the results are between [n,top). 311** Returns n such that the the results are between [n,top).
312*/ 312*/
313StkId luaV_execute (lua_State *L, const Closure *cl, const TProtoFunc *tf, 313StkId luaV_execute (lua_State *L, const Closure *cl, const TProtoFunc *tf,
314 StkId base) { 314 register StkId base) {
315 register StkId top; /* keep top local, for performance */ 315 register StkId top; /* keep top local, for performance */
316 register const Byte *pc = tf->code; 316 register const Byte *pc = tf->code;
317 TaggedString **kstr = tf->kstr; 317 TaggedString **kstr = tf->kstr;
@@ -661,7 +661,7 @@ StkId luaV_execute (lua_State *L, const Closure *cl, const TProtoFunc *tf,
661 case SETNAMEW: aux += highbyte(L, *pc++); 661 case SETNAMEW: aux += highbyte(L, *pc++);
662 case SETNAME: aux += *pc++; 662 case SETNAME: aux += *pc++;
663 if ((base-2)->ttype == LUA_T_LINE) { /* function has debug info? */ 663 if ((base-2)->ttype == LUA_T_LINE) { /* function has debug info? */
664 (base-1)->ttype = -(*pc++); 664 (base-1)->ttype = (lua_Type)(-(*pc++));
665 (base-1)->value.i = aux; 665 (base-1)->value.i = aux;
666 } 666 }
667 break; 667 break;