aboutsummaryrefslogtreecommitdiff
path: root/ldebug.c
diff options
context:
space:
mode:
Diffstat (limited to 'ldebug.c')
-rw-r--r--ldebug.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/ldebug.c b/ldebug.c
index aecb2f8d..6148cfcf 100644
--- a/ldebug.c
+++ b/ldebug.c
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: ldebug.c,v 2.41 2008/08/26 13:27:42 roberto Exp roberto $ 2** $Id: ldebug.c,v 2.42 2008/10/30 15:39:30 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*/
@@ -89,7 +89,7 @@ LUA_API int lua_getstack (lua_State *L, int level, lua_Debug *ar) {
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 (isLua(ci)) /* Lua function? */ 91 if (isLua(ci)) /* Lua function? */
92 level -= ci->tailcalls; /* skip lost tail calls */ 92 level -= ci->u.l.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? */
95 status = 1; 95 status = 1;
@@ -527,7 +527,7 @@ static const char *getobjname (lua_State *L, CallInfo *ci, int stackpos,
527static const char *getfuncname (lua_State *L, CallInfo *ci, const char **name) { 527static const char *getfuncname (lua_State *L, CallInfo *ci, const char **name) {
528 TMS tm = 0; 528 TMS tm = 0;
529 Instruction i; 529 Instruction i;
530 if ((isLua(ci) && ci->tailcalls > 0) || !isLua(ci - 1)) 530 if ((isLua(ci) && ci->u.l.tailcalls > 0) || !isLua(ci - 1))
531 return NULL; /* calling function is not Lua (or is unknown) */ 531 return NULL; /* calling function is not Lua (or is unknown) */
532 ci--; /* calling function */ 532 ci--; /* calling function */
533 i = ci_func(ci)->l.p->code[currentpc(L, ci)]; 533 i = ci_func(ci)->l.p->code[currentpc(L, ci)];