| 31 | |
| 32 | |
| 33 | LClosure *luaF_newLclosure (lua_State *L, int n) { |
| 34 | GCObject *o = luaC_newobj(L, LUA_TLCL, sizeLclosure(n)); |
| 35 | LClosure *c = gco2lcl(o); |
| 36 | c->p = NULL; |
| 37 | c->nupvalues = cast_byte(n); |
| 38 | while (n--) c->upvals[n] = NULL; |
| 39 | return c; |
| 40 | } |
| 41 | |
| 42 | /* |
| 43 | ** fill a closure with new closed upvalues |
no test coverage detected