diff options
Diffstat (limited to 'lapi.c')
-rw-r--r-- | lapi.c | 5 |
1 files changed, 2 insertions, 3 deletions
@@ -197,7 +197,7 @@ LUA_API void lua_settop (lua_State *L, int idx) { | |||
197 | newtop = L->top + diff; | 197 | newtop = L->top + diff; |
198 | if (diff < 0 && L->tbclist >= newtop) { | 198 | if (diff < 0 && L->tbclist >= newtop) { |
199 | lua_assert(hastocloseCfunc(ci->nresults)); | 199 | lua_assert(hastocloseCfunc(ci->nresults)); |
200 | luaF_close(L, newtop, CLOSEKTOP, 0); | 200 | newtop = luaF_close(L, newtop, CLOSEKTOP, 0); |
201 | } | 201 | } |
202 | L->top = newtop; /* correct top only after closing any upvalue */ | 202 | L->top = newtop; /* correct top only after closing any upvalue */ |
203 | lua_unlock(L); | 203 | lua_unlock(L); |
@@ -210,8 +210,7 @@ LUA_API void lua_closeslot (lua_State *L, int idx) { | |||
210 | level = index2stack(L, idx); | 210 | level = index2stack(L, idx); |
211 | api_check(L, hastocloseCfunc(L->ci->nresults) && L->tbclist == level, | 211 | api_check(L, hastocloseCfunc(L->ci->nresults) && L->tbclist == level, |
212 | "no variable to close at given level"); | 212 | "no variable to close at given level"); |
213 | luaF_close(L, level, CLOSEKTOP, 0); | 213 | level = luaF_close(L, level, CLOSEKTOP, 0); |
214 | level = index2stack(L, idx); /* stack may be moved */ | ||
215 | setnilvalue(s2v(level)); | 214 | setnilvalue(s2v(level)); |
216 | lua_unlock(L); | 215 | lua_unlock(L); |
217 | } | 216 | } |