| 1281 | |
| 1282 | |
| 1283 | LUA_API void lua_toclose (lua_State *L, int idx) { |
| 1284 | StkId o; |
| 1285 | lua_lock(L); |
| 1286 | o = index2stack(L, idx); |
| 1287 | api_check(L, L->tbclist.p < o, "given index below or equal a marked one"); |
| 1288 | luaF_newtbcupval(L, o); /* create new to-be-closed upvalue */ |
| 1289 | L->ci->callstatus |= CIST_TBC; /* mark that function has TBC slots */ |
| 1290 | lua_unlock(L); |
| 1291 | } |
| 1292 | |
| 1293 | |
| 1294 | LUA_API void lua_concat (lua_State *L, int n) { |
no test coverage detected