| 192 | |
| 193 | |
| 194 | static int stackinuse (lua_State *L) { |
| 195 | CallInfo *ci; |
| 196 | StkId lim = L->top; |
| 197 | for (ci = L->ci; ci != NULL; ci = ci->previous) { |
| 198 | lua_assert(ci->top <= L->stack_last); |
| 199 | if (lim < ci->top) lim = ci->top; |
| 200 | } |
| 201 | return cast_int(lim - L->stack) + 1; /* part of stack in use */ |
| 202 | } |
| 203 | |
| 204 | |
| 205 | void luaD_shrinkstack (lua_State *L) { |