avoid name colision (for alllua.c)

This commit is contained in:
Roberto Ierusalimschy 2003-03-19 18:24:04 -03:00
parent 1a553f9199
commit abc304f9da

View File

@ -1,5 +1,5 @@
/* /*
** $Id: ldebug.c,v 1.148 2003/03/18 12:24:38 roberto Exp roberto $ ** $Id: ldebug.c,v 1.149 2003/03/18 12:50:04 roberto Exp roberto $
** Debug Interface ** Debug Interface
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -197,7 +197,7 @@ static void info_tailcall (lua_State *L, lua_Debug *ar) {
} }
static int getinfo (lua_State *L, const char *what, lua_Debug *ar, static int auxgetinfo (lua_State *L, const char *what, lua_Debug *ar,
StkId f, CallInfo *ci) { StkId f, CallInfo *ci) {
int status = 1; int status = 1;
for (; *what; what++) { for (; *what; what++) {
@ -242,13 +242,13 @@ LUA_API int lua_getinfo (lua_State *L, const char *what, lua_Debug *ar) {
StkId f = L->top - 1; StkId f = L->top - 1;
if (!ttisfunction(f)) if (!ttisfunction(f))
luaG_runerror(L, "value for `lua_getinfo' is not a function"); luaG_runerror(L, "value for `lua_getinfo' is not a function");
status = getinfo(L, what + 1, ar, f, NULL); status = auxgetinfo(L, what + 1, ar, f, NULL);
L->top--; /* pop function */ L->top--; /* pop function */
} }
else if (ar->i_ci != 0) { /* no tail call? */ else if (ar->i_ci != 0) { /* no tail call? */
CallInfo *ci = L->base_ci + ar->i_ci; CallInfo *ci = L->base_ci + ar->i_ci;
lua_assert(ttisfunction(ci->base - 1)); lua_assert(ttisfunction(ci->base - 1));
status = getinfo(L, what, ar, ci->base - 1, ci); status = auxgetinfo(L, what, ar, ci->base - 1, ci);
} }
else else
info_tailcall(L, ar); info_tailcall(L, ar);