mirrors
/
lua
mirror of https://github.com/lua/lua
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

more specific test to avoid calling luaF_close when function returns

This commit is contained in:
Roberto Ierusalimschy 2008-09-09 10:53:02 -03:00
parent f94cd2201c
commit 4376c9bc5f
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lvm.c
View File

@ -1,5 +1,5 @@
/*
** $Id: lvm.c,v 2.75 2008/08/13 17:02:42 roberto Exp roberto $
** $Id: lvm.c,v 2.76 2008/08/26 13:27:42 roberto Exp roberto $
** Lua virtual machine
** See Copyright Notice in lua.h
*/
@ -622,7 +622,7 @@ void luaV_execute (lua_State *L) {
int aux;
StkId func = ci->func;
StkId pfunc = (ci+1)->func; /* previous function index */
if (L->openupval) luaF_close(L, ci->base);
if (cl->p->sizep > 0) luaF_close(L, ci->base);
L->base = ci->base = ci->func + ((ci+1)->base - pfunc);
for (aux = 0; pfunc+aux < L->top; aux++) /* move frame down */
setobjs2s(L, func+aux, pfunc+aux);
@ -637,7 +637,7 @@ void luaV_execute (lua_State *L) {
case OP_RETURN: {
int b = GETARG_B(i);
if (b != 0) L->top = ra+b-1;
if (L->openupval) luaF_close(L, base);
if (cl->p->sizep > 0) luaF_close(L, base);
b = luaD_poscall(L, ra);
if (!((L->ci + 1)->callstatus & CIST_REENTRY))
return; /* external invocation: return */