| 2333 | |
| 2334 | |
| 2335 | LUA_API void lua_pushcclosure (lua_State *L, lua_CFunction fn, int n) { |
| 2336 | Closure *cl; |
| 2337 | lua_lock(L); |
| 2338 | luaC_checkGC(L); |
| 2339 | api_checknelems(L, n); |
| 2340 | cl = luaF_newCclosure(L, n, getcurrenv(L)); |
| 2341 | cl->c.f = fn; |
| 2342 | L->top -= n; |
| 2343 | while (n--) |
| 2344 | setobj2n(L, &cl->c.upvalue[n], L->top+n); |
| 2345 | setclvalue(L, L->top, cl); |
| 2346 | lua_assert(iswhite(obj2gco(cl))); |
| 2347 | api_incr_top(L); |
| 2348 | lua_unlock(L); |
| 2349 | } |
| 2350 | |
| 2351 | |
| 2352 | LUA_API void lua_pushboolean (lua_State *L, int b) { |
no test coverage detected