nik/lush
1
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

'lua_toclose' gets the index to be closed as an argument

Browse Source 
Sometimes it is useful to mark to-be-closed an index that is not
at the top of the stack (e.g., if the value to be closed came from
a function call returning multiple values).
This commit is contained in:
Roberto Ierusalimschy
2018-11-12 14:15:50 -02:00
parent 9eafe9c053
commit 5fda30b4f9
4 changed files with 22 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
lapi.c
View File

@@ -1207,12 +1207,19 @@ LUA_API int lua_next (lua_State *L, int idx) {
}
LUA_API void lua_toclose (lua_State *L) {
int nresults = L->ci->nresults;
luaF_newtbcupval(L, L->top - 1); /* create new to-be-closed upvalue */
LUA_API void lua_toclose (lua_State *L, int idx) {
int nresults;
StkId o;
lua_lock(L);
o = index2stack(L, idx);
nresults = L->ci->nresults;
api_check(L, L->openupval == NULL || uplevel(L->openupval) < o,
"there is an already marked index below");
luaF_newtbcupval(L, o); /* create new to-be-closed upvalue */
if (!hastocloseCfunc(nresults)) /* function not marked yet? */
L->ci->nresults = codeNresults(nresults); /* mark it */
lua_assert(hastocloseCfunc(L->ci->nresults));
lua_unlock(L);
}