small bug in close x return

This commit is contained in:
Roberto Ierusalimschy
2001-09-28 13:48:16 -03:00
parent 8e9b1e4ae9
commit f54cdb33a5
3 changed files with 12 additions and 11 deletions

6
lvm.c
View File

@@ -1,5 +1,5 @@
/*
** $Id: lvm.c,v 1.190 2001/06/28 14:57:17 roberto Exp roberto $
** $Id: lvm.c,v 1.193 2001/09/07 17:39:10 roberto Exp $
** Lua virtual machine
** See Copyright Notice in lua.h
*/
@@ -556,7 +556,9 @@ StkId luaV_execute (lua_State *L, const Closure *cl, StkId base) {
break;
}
case OP_RETURN: {
int b = GETARG_B(i);
int b;
luaF_close(L, base);
b = GETARG_B(i);
if (b != NO_REG)
L->top = ra+b;
return ra;