diff options
author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2001-09-25 14:05:49 -0300 |
---|---|---|
committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2001-09-25 14:05:49 -0300 |
commit | c04d9b9ecb7a9dcf59ba185fc6211cb1a3ee1706 (patch) | |
tree | 0fb23f553f7a31a1450923204e7a6bb97b412032 /ldo.c | |
parent | c44c68450a636647caea90872582e03a30bfb6e4 (diff) | |
download | lua-github-c04d9b9ecb7a9dcf59ba185fc6211cb1a3ee1706.tar.gz |
small bug when closing closures in error conditions
Diffstat (limited to 'ldo.c')
-rw-r--r-- | ldo.c | 7 |
1 files changed, 4 insertions, 3 deletions
@@ -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; |