** {================================================================== ** Stack reallocation ** =================================================================== */
| 185 | ** =================================================================== |
| 186 | */ |
| 187 | static void correctstack(lua_State *L, TValue *oldstack) { |
| 188 | CallInfo *ci; |
| 189 | UpVal *up; |
| 190 | L->top = (L->top - oldstack) + L->stack; |
| 191 | for (up = L->openupval; up != nullptr; up = up->u.open.next) |
| 192 | up->v = (up->v - oldstack) + L->stack; |
| 193 | for (ci = L->ci; ci != nullptr; ci = ci->previous) { |
| 194 | ci->top = (ci->top - oldstack) + L->stack; |
| 195 | ci->func = (ci->func - oldstack) + L->stack; |
| 196 | if (isLua(ci)) |
| 197 | ci->u.l.base = (ci->u.l.base - oldstack) + L->stack; |
| 198 | } |
| 199 | } |
| 200 | |
| 201 | |
| 202 | /* some space for error handling */ |