diff --git a/lvm.c b/lvm.c index e3514b39..4b05c894 100644 --- a/lvm.c +++ b/lvm.c @@ -1,5 +1,5 @@ /* -** $Id: lvm.c,v 1.70 1999/12/06 11:40:55 roberto Exp roberto $ +** $Id: lvm.c,v 1.71 1999/12/06 19:30:53 roberto Exp roberto $ ** Lua virtual machine ** See Copyright Notice in lua.h */ @@ -286,9 +286,8 @@ static void adjust_varargs (lua_State *L, StkId base, int nfixargs) { /* -** Execute the given opcode, until a RET. Parameters are between -** [stack+base,top). Returns n such that the the results are between -** [stack+n,top). +** Executes the given Lua function. Parameters are between [base,top). +** Returns n such that the the results are between [n,top). */ StkId luaV_execute (lua_State *L, const Closure *cl, const TProtoFunc *tf, StkId base) { @@ -313,7 +312,7 @@ StkId luaV_execute (lua_State *L, const Closure *cl, const TProtoFunc *tf, case ENDCODE: top = base; goto ret; - + case RETCODE: base += *pc++; goto ret;