** Remove first element from the tbclist plus its dummy nodes. */
| 211 | ** Remove first element from the tbclist plus its dummy nodes. |
| 212 | */ |
| 213 | static void poptbclist (lua_State *L) { |
| 214 | StkId tbc = L->tbclist.p; |
| 215 | lua_assert(tbc->tbclist.delta > 0); /* first element cannot be dummy */ |
| 216 | tbc -= tbc->tbclist.delta; |
| 217 | while (tbc > L->stack.p && tbc->tbclist.delta == 0) |
| 218 | tbc -= MAXDELTA; /* remove dummy nodes */ |
| 219 | L->tbclist.p = tbc; |
| 220 | } |
| 221 | |
| 222 | |
| 223 | /* |