| 871 | |
| 872 | |
| 873 | static void f_Ccall (lua_State *L, void *ud) { |
| 874 | struct CCallS *c = cast(struct CCallS *, ud); |
| 875 | Closure *cl; |
| 876 | cl = luaF_newCclosure(L, 0, getcurrenv(L)); |
| 877 | cl->c.f = c->func; |
| 878 | setclvalue(L, L->top, cl); /* push function */ |
| 879 | api_incr_top(L); |
| 880 | setpvalue(L->top, c->ud); /* push only argument */ |
| 881 | api_incr_top(L); |
| 882 | luaD_call(L, L->top - 2, 0); |
| 883 | } |
| 884 | |
| 885 | |
| 886 | LUA_API int lua_cpcall (lua_State *L, lua_CFunction func, void *ud) { |
nothing calls this directly
no test coverage detected