diff options
Diffstat (limited to 'ldebug.c')
| -rw-r--r-- | ldebug.c | 8 |
1 files changed, 4 insertions, 4 deletions
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: ldebug.c,v 1.148 2003/03/18 12:24:38 roberto Exp roberto $ | 2 | ** $Id: ldebug.c,v 1.149 2003/03/18 12:50:04 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 | */ |
| @@ -197,7 +197,7 @@ static void info_tailcall (lua_State *L, lua_Debug *ar) { | |||
| 197 | } | 197 | } |
| 198 | 198 | ||
| 199 | 199 | ||
| 200 | static int getinfo (lua_State *L, const char *what, lua_Debug *ar, | 200 | static int auxgetinfo (lua_State *L, const char *what, lua_Debug *ar, |
| 201 | StkId f, CallInfo *ci) { | 201 | StkId f, CallInfo *ci) { |
| 202 | int status = 1; | 202 | int status = 1; |
| 203 | for (; *what; what++) { | 203 | for (; *what; what++) { |
| @@ -242,13 +242,13 @@ LUA_API int lua_getinfo (lua_State *L, const char *what, lua_Debug *ar) { | |||
| 242 | StkId f = L->top - 1; | 242 | StkId f = L->top - 1; |
| 243 | if (!ttisfunction(f)) | 243 | if (!ttisfunction(f)) |
| 244 | luaG_runerror(L, "value for `lua_getinfo' is not a function"); | 244 | luaG_runerror(L, "value for `lua_getinfo' is not a function"); |
| 245 | status = getinfo(L, what + 1, ar, f, NULL); | 245 | status = auxgetinfo(L, what + 1, ar, f, NULL); |
| 246 | L->top--; /* pop function */ | 246 | L->top--; /* pop function */ |
| 247 | } | 247 | } |
| 248 | else if (ar->i_ci != 0) { /* no tail call? */ | 248 | else if (ar->i_ci != 0) { /* no tail call? */ |
| 249 | CallInfo *ci = L->base_ci + ar->i_ci; | 249 | CallInfo *ci = L->base_ci + ar->i_ci; |
| 250 | lua_assert(ttisfunction(ci->base - 1)); | 250 | lua_assert(ttisfunction(ci->base - 1)); |
| 251 | status = getinfo(L, what, ar, ci->base - 1, ci); | 251 | status = auxgetinfo(L, what, ar, ci->base - 1, ci); |
| 252 | } | 252 | } |
| 253 | else | 253 | else |
| 254 | info_tailcall(L, ar); | 254 | info_tailcall(L, ar); |
