Function lua_getstack

Source/Misc/lua/src/lua.c:4592–4612

LUA_API int lua_getstack (lua_State *L, int level, lua_Debug *ar) {
int status;
CallInfo *ci;
lua_lock(L);
for (ci = L->ci; level > 0 && ci > L->base_ci; ci--) {
level--;
if (f_isLua(ci))  /* Lua function? */
level -= ci->tailcalls;  /* skip lost tail calls */
}
if (level == 0 && ci > L->base_ci) {  /* level found? */
status = 1;
ar->i_ci = cast_int(ci - L->base_ci);
}
else if (level < 0) {  /* level is of a lost tail call? */
status = 1;
ar->i_ci = 0;
}
else status = 0;  /* no such level */
lua_unlock(L);
return status;
}


static Proto *getluaproto (CallInfo *ci) {