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

Complete implementation of to-be-closed variables

Browse Source
This commit is contained in:
Roberto Ierusalimschy
2018-10-22 14:55:51 -03:00
parent 3c7dc52909
commit c90176f969
3 changed files with 39 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
ldo.c
View File

@@ -676,12 +676,15 @@ LUA_API int lua_resume (lua_State *L, lua_State *from, int nargs,
/* unroll continuation */
status = luaD_rawrunprotected(L, unroll, &status);
}
if (unlikely(errorstatus(status))) { /* unrecoverable error? */
if (likely(!errorstatus(status)))
lua_assert(status == L->status); /* normal end or yield */
else { /* unrecoverable error */
status = luaF_close(L, L->stack, status); /* close all upvalues */
L->status = cast_byte(status); /* mark thread as 'dead' */
luaD_seterrorobj(L, status, L->top); /* push error message */
luaD_seterrorobj(L, status, L->stack + 1); /* push error message */
L->ci = &L->base_ci; /* back to the original C level */
L->ci->top = L->top;
}
else lua_assert(status == L->status); /* normal end or yield */
}
*nresults = (status == LUA_YIELD) ? L->ci->u2.nyield
: cast_int(L->top - (L->ci->func + 1));