| 33 | |
| 34 | |
| 35 | LClosure *luaF_newLclosure (lua_State *L, int nupvals) { |
| 36 | GCObject *o = luaC_newobj(L, LUA_VLCL, sizeLclosure(nupvals)); |
| 37 | LClosure *c = gco2lcl(o); |
| 38 | c->p = NULL; |
| 39 | c->nupvalues = cast_byte(nupvals); |
| 40 | while (nupvals--) c->upvals[nupvals] = NULL; |
| 41 | return c; |
| 42 | } |
| 43 | |
| 44 | |
| 45 | /* |
no test coverage detected