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