commit c04d9b9ecb7a9dcf59ba185fc6211cb1a3ee1706
parent c44c68450a636647caea90872582e03a30bfb6e4
Author: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date: Tue, 25 Sep 2001 14:05:27 -0300
small bug when closing closures in error conditions
Diffstat:
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/ldo.c b/ldo.c
@@ -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
** 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 */
c.func = func; c.nresults = nresults;
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 */
+ }
lua_unlock(L);
return status;
}
@@ -344,7 +346,6 @@ int luaD_runprotected (lua_State *L, void (*f)(lua_State *, void *), void *ud) {
if (setjmp(lj.b) == 0)
(*f)(L, ud);
else { /* an error occurred: restore the state */
- luaF_close(L, lj.top); /* close eventual pending closures */
L->ci = lj.ci;
L->top = lj.top;
L->allowhooks = lj.allowhooks;