** fill a closure with new closed upvalues */
| 43 | ** fill a closure with new closed upvalues |
| 44 | */ |
| 45 | void luaF_initupvals (lua_State *L, LClosure *cl) { |
| 46 | int i; |
| 47 | for (i = 0; i < cl->nupvalues; i++) { |
| 48 | UpVal *uv = luaM_new(L, UpVal); |
| 49 | uv->refcount = 1; |
| 50 | uv->v = &uv->u.value; /* make it closed */ |
| 51 | setnilvalue(uv->v); |
| 52 | cl->upvals[i] = uv; |
| 53 | } |
| 54 | } |
| 55 | |
| 56 | |
| 57 | UpVal *luaF_findupval (lua_State *L, StkId level) { |