mirrors/lua
1
0
Fork 0
mirror of https://github.com/lua/lua synced 2025-02-16 21:23:58 +03:00
Code Issues Packages Projects Releases Wiki Activity

small bug for tail-recursive debugging

Browse Source
This commit is contained in:
Roberto Ierusalimschy 2005-04-14 10:30:47 -03:00
parent 04f657c7f8
commit 8c3c3e7691
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ldebug.c
View File

@ -1,5 +1,5 @@
/*
** $Id: ldebug.c,v 2.13 2005/04/04 18:12:51 roberto Exp roberto $
** $Id: ldebug.c,v 2.14 2005/04/05 13:41:29 roberto Exp roberto $
** Debug Interface
** See Copyright Notice in lua.h
*/
@ -90,15 +90,15 @@ LUA_API int lua_getstack (lua_State *L, int level, lua_Debug *ar) {
if (f_isLua(ci)) /* Lua function? */
level -= ci->tailcalls; /* skip lost tail calls */
}
if (level > 0 || ci == L->base_ci) status = 0; /* there is no such level */
else if (level < 0) { /* level is of a lost tail call */
status = 1;
ar->i_ci = 0;
}
else {
if (level == 0 && ci > L->base_ci) { /* level found? */
status = 1;
ar->i_ci = 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;
}