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 | } |
