| 325 | |
| 326 | |
| 327 | int luaE_resetthread (lua_State *L, int status) { |
| 328 | CallInfo *ci = L->ci = &L->base_ci; /* unwind CallInfo list */ |
| 329 | setnilvalue(s2v(L->stack)); /* 'function' entry for basic 'ci' */ |
| 330 | ci->func = L->stack; |
| 331 | ci->callstatus = CIST_C; |
| 332 | if (status == LUA_YIELD) |
| 333 | status = LUA_OK; |
| 334 | L->status = LUA_OK; /* so it can run __close metamethods */ |
| 335 | status = luaD_closeprotected(L, 1, status); |
| 336 | if (status != LUA_OK) /* errors? */ |
| 337 | luaD_seterrorobj(L, status, L->stack + 1); |
| 338 | else |
| 339 | L->top = L->stack + 1; |
| 340 | ci->top = L->top + LUA_MINSTACK; |
| 341 | luaD_reallocstack(L, cast_int(ci->top - L->stack), 0); |
| 342 | return status; |
| 343 | } |
| 344 | |
| 345 | |
| 346 | LUA_API int lua_resetthread (lua_State *L) { |
no test coverage detected