** create a new Lua closure, push it in the stack, and initialize ** its upvalues. */
| 786 | ** its upvalues. |
| 787 | */ |
| 788 | static void pushclosure (lua_State *L, Proto *p, UpVal **encup, StkId base, |
| 789 | StkId ra) { |
| 790 | int nup = p->sizeupvalues; |
| 791 | Upvaldesc *uv = p->upvalues; |
| 792 | int i; |
| 793 | LClosure *ncl = luaF_newLclosure(L, nup); |
| 794 | ncl->p = p; |
| 795 | setclLvalue2s(L, ra, ncl); /* anchor new closure in stack */ |
| 796 | for (i = 0; i < nup; i++) { /* fill in its upvalues */ |
| 797 | if (uv[i].instack) /* upvalue refers to local variable? */ |
| 798 | ncl->upvals[i] = luaF_findupval(L, base + uv[i].idx); |
| 799 | else /* get upvalue from enclosing function */ |
| 800 | ncl->upvals[i] = encup[uv[i].idx]; |
| 801 | luaC_objbarrier(L, ncl, ncl->upvals[i]); |
| 802 | } |
| 803 | } |
| 804 | |
| 805 | |
| 806 | /* |
no test coverage detected