** Change back all offsets into pointers. */
| 177 | ** Change back all offsets into pointers. |
| 178 | */ |
| 179 | static void correctstack (lua_State *L) { |
| 180 | CallInfo *ci; |
| 181 | UpVal *up; |
| 182 | L->top.p = restorestack(L, L->top.offset); |
| 183 | L->tbclist.p = restorestack(L, L->tbclist.offset); |
| 184 | for (up = L->openupval; up != NULL; up = up->u.open.next) |
| 185 | up->v.p = s2v(restorestack(L, up->v.offset)); |
| 186 | for (ci = L->ci; ci != NULL; ci = ci->previous) { |
| 187 | ci->top.p = restorestack(L, ci->top.offset); |
| 188 | ci->func.p = restorestack(L, ci->func.offset); |
| 189 | if (isLua(ci)) |
| 190 | ci->u.l.trap = 1; /* signal to update 'trap' in 'luaV_execute' */ |
| 191 | } |
| 192 | } |
| 193 | |
| 194 | |
| 195 | /* some space for error handling */ |