diff options
| author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2008-08-26 10:27:42 -0300 |
|---|---|---|
| committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2008-08-26 10:27:42 -0300 |
| commit | f94cd2201c3a8d341db448f2719dfb0ae4338adf (patch) | |
| tree | 34f49a3e607098699b1f9e3af9358c062ec8425e /ldebug.c | |
| parent | fdbb243ff9980870c54676f3b2597b110ab82864 (diff) | |
| download | lua-f94cd2201c3a8d341db448f2719dfb0ae4338adf.tar.gz lua-f94cd2201c3a8d341db448f2719dfb0ae4338adf.tar.bz2 lua-f94cd2201c3a8d341db448f2719dfb0ae4338adf.zip | |
better control of call status through CallInfo
Diffstat (limited to 'ldebug.c')
| -rw-r--r-- | ldebug.c | 4 |
1 files changed, 2 insertions, 2 deletions
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: ldebug.c,v 2.39 2008/04/02 19:14:16 roberto Exp roberto $ | 2 | ** $Id: ldebug.c,v 2.40 2008/07/03 14:24:11 roberto Exp roberto $ |
| 3 | ** Debug Interface | 3 | ** Debug Interface |
| 4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
| 5 | */ | 5 | */ |
| @@ -88,7 +88,7 @@ LUA_API int lua_getstack (lua_State *L, int level, lua_Debug *ar) { | |||
| 88 | lua_lock(L); | 88 | lua_lock(L); |
| 89 | for (ci = L->ci; level > 0 && ci > L->base_ci; ci--) { | 89 | for (ci = L->ci; level > 0 && ci > L->base_ci; ci--) { |
| 90 | level--; | 90 | level--; |
| 91 | if (f_isLua(ci)) /* Lua function? */ | 91 | if (isLua(ci)) /* Lua function? */ |
| 92 | level -= ci->tailcalls; /* skip lost tail calls */ | 92 | level -= ci->tailcalls; /* skip lost tail calls */ |
| 93 | } | 93 | } |
| 94 | if (level == 0 && ci > L->base_ci) { /* level found? */ | 94 | if (level == 0 && ci > L->base_ci) { /* level found? */ |