| 138 | #define toproto(L,i) getproto(L->top+(i)) |
| 139 | |
| 140 | static const Proto* combine(lua_State* L, int n) |
| 141 | { |
| 142 | if (n == 1) |
| 143 | return toproto(L, -1); |
| 144 | else |
| 145 | { |
| 146 | Proto* f; |
| 147 | int i = n; |
| 148 | if (lua_load(L, reader, &i, "=(" PROGNAME ")", nullptr) != LUA_OK) fatal(lua_tostring(L, -1)); |
| 149 | f = toproto(L, -1); |
| 150 | for (i = 0; i < n; i++) |
| 151 | { |
| 152 | f->p[i] = toproto(L, i - n - 1); |
| 153 | if (f->p[i]->sizeupvalues > 0) f->p[i]->upvalues[0].instack = 0; |
| 154 | } |
| 155 | f->sizelineinfo = 0; |
| 156 | return f; |
| 157 | } |
| 158 | } |
| 159 | |
| 160 | static int writer(lua_State* L, const void* p, size_t size, void* u) |
| 161 | { |