| 5270 | |
| 5271 | |
| 5272 | static void correctstack (lua_State *L, TValue *oldstack) { |
| 5273 | CallInfo *ci; |
| 5274 | GCObject *up; |
| 5275 | L->top = (L->top - oldstack) + L->stack; |
| 5276 | for (up = L->openupval; up != NULL; up = up->gch.next) |
| 5277 | gco2uv(up)->v = (gco2uv(up)->v - oldstack) + L->stack; |
| 5278 | for (ci = L->base_ci; ci <= L->ci; ci++) { |
| 5279 | ci->top = (ci->top - oldstack) + L->stack; |
| 5280 | ci->base = (ci->base - oldstack) + L->stack; |
| 5281 | ci->func = (ci->func - oldstack) + L->stack; |
| 5282 | } |
| 5283 | L->base = (L->base - oldstack) + L->stack; |
| 5284 | } |
| 5285 | |
| 5286 | |
| 5287 | void luaD_reallocstack (lua_State *L, int newsize) { |