| 237 | |
| 238 | |
| 239 | static int stackinuse(lua_State *L) { |
| 240 | CallInfo *ci; |
| 241 | StkId lim = L->top; |
| 242 | for (ci = L->ci; ci != nullptr; ci = ci->previous) { |
| 243 | lua_assert(ci->top <= L->stack_last); |
| 244 | if (lim < ci->top) lim = ci->top; |
| 245 | } |
| 246 | return cast_int(lim - L->stack) + 1; /* part of stack in use */ |
| 247 | } |
| 248 | |
| 249 | |
| 250 | void luaD_shrinkstack(lua_State *L) { |