| 140 | |
| 141 | |
| 142 | static void correctstack (lua_State *L, TValue *oldstack) { |
| 143 | CallInfo *ci; |
| 144 | GCObject *up; |
| 145 | L->top = (L->top - oldstack) + L->stack; |
| 146 | for (up = L->openupval; up != NULL; up = up->gch.next) |
| 147 | gco2uv(up)->v = (gco2uv(up)->v - oldstack) + L->stack; |
| 148 | for (ci = L->ci; ci != NULL; ci = ci->previous) { |
| 149 | ci->top = (ci->top - oldstack) + L->stack; |
| 150 | ci->func = (ci->func - oldstack) + L->stack; |
| 151 | if (isLua(ci)) |
| 152 | ci->u.l.base = (ci->u.l.base - oldstack) + L->stack; |
| 153 | } |
| 154 | } |
| 155 | |
| 156 | |
| 157 | /* some space for error handling */ |