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

small bug when closing closures in error conditions

This commit is contained in:
Roberto Ierusalimschy 2001-09-25 14:05:49 -03:00
parent c44c68450a
commit c04d9b9ecb
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ldo.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: ldo.c,v 1.138 2001/07/16 20:24:48 roberto Exp $ ** $Id: ldo.c,v 1.140 2001/09/07 17:39:10 roberto Exp $
** Stack and Call structure of Lua ** Stack and Call structure of Lua
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -192,8 +192,10 @@ LUA_API int lua_call (lua_State *L, int nargs, int nresults) {
func = L->top - (nargs+1); /* function to be called */ func = L->top - (nargs+1); /* function to be called */
c.func = func; c.nresults = nresults; c.func = func; c.nresults = nresults;
status = luaD_runprotected(L, f_call, &c); status = luaD_runprotected(L, f_call, &c);
if (status != 0) /* an error occurred? */ if (status != 0) { /* an error occurred? */
luaF_close(L, func); /* close eventual pending closures */
L->top = func; /* remove parameters from the stack */ L->top = func; /* remove parameters from the stack */
}
lua_unlock(L); lua_unlock(L);
return status; return status;
} }
@ -344,7 +346,6 @@ int luaD_runprotected (lua_State *L, void (*f)(lua_State *, void *), void *ud) {
if (setjmp(lj.b) == 0) if (setjmp(lj.b) == 0)
(*f)(L, ud); (*f)(L, ud);
else { /* an error occurred: restore the state */ else { /* an error occurred: restore the state */
luaF_close(L, lj.top); /* close eventual pending closures */
L->ci = lj.ci; L->ci = lj.ci;
L->top = lj.top; L->top = lj.top;
L->allowhooks = lj.allowhooks; L->allowhooks = lj.allowhooks;