diff options
author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2003-03-19 18:24:04 -0300 |
---|---|---|
committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2003-03-19 18:24:04 -0300 |
commit | abc304f9da5b29fd36cd09a01fb6977758e0a640 (patch) | |
tree | 0011e3e2cf6286e3db4ace3b0854e6971d4b323e | |
parent | 1a553f9199f99bd529c542ef3be60b7a48f4ff2a (diff) | |
download | lua-abc304f9da5b29fd36cd09a01fb6977758e0a640.tar.gz lua-abc304f9da5b29fd36cd09a01fb6977758e0a640.tar.bz2 lua-abc304f9da5b29fd36cd09a01fb6977758e0a640.zip |
avoid name colision (for alllua.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); |