nik/lush
1
1
Fork 0
Code Issues Pull Requests Actions 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
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 ** Debug Interface
** See Copyright Notice in lua.h ** 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? */ if (f_isLua(ci)) /* Lua function? */
level -= ci->tailcalls; /* skip lost tail calls */ level -= ci->tailcalls; /* skip lost tail calls */
} }
if (level > 0 || ci == L->base_ci) status = 0; /* there is no such level */ if (level == 0 && ci > L->base_ci) { /* level found? */
else if (level < 0) { /* level is of a lost tail call */
status = 1;
ar->i_ci = 0;
}
else {
status = 1; status = 1;
ar->i_ci = ci - L->base_ci; 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); lua_unlock(L);
return status; return status;
} }