| 262 | |
| 263 | |
| 264 | static int stackinuse (lua_State *L) { |
| 265 | CallInfo *ci; |
| 266 | StkId lim = L->top; |
| 267 | for (ci = L->ci; ci != NULL; ci = ci->previous) { |
| 268 | lua_assert(ci->top <= L->stack_last); |
| 269 | if (lim < ci->top) lim = ci->top; |
| 270 | } |
| 271 | return cast_int(lim - L->stack) + 1; /* part of stack in use */ |
| 272 | } |
| 273 | |
| 274 | |
| 275 | void luaD_shrinkstack (lua_State *L) { |