rusefi
/
lua
mirror of https://github.com/rusefi/lua.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

core does not look for function name in globals (too particular)

This commit is contained in:
Roberto Ierusalimschy 2003-10-20 16:42:28 -02:00
parent 97b838d9ab
commit 07201066bd
1 changed files with 3 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
ldebug.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: ldebug.c,v 1.155 2003/07/16 20:49:02 roberto Exp roberto $ ** $Id: ldebug.c,v 1.156 2003/10/02 19:21:09 roberto Exp roberto $
** Debug Interface ** Debug Interface
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -159,18 +159,6 @@ static void funcinfo (lua_Debug *ar, StkId func) {
} }
static const char *travglobals (lua_State *L, const TObject *o) {
Table *g = hvalue(gt(L));
int i = sizenode(g);
while (i--) {
Node *n = gnode(g, i);
if (luaO_rawequalObj(o, gval(n)) && ttisstring(gkey(n)))
return getstr(tsvalue(gkey(n)));
}
return NULL;
}
static void info_tailcall (lua_State *L, lua_Debug *ar) { static void info_tailcall (lua_State *L, lua_Debug *ar) {
ar->name = ar->namewhat = ""; ar->name = ar->namewhat = "";
ar->what = "tail"; ar->what = "tail";
@ -202,10 +190,8 @@ static int auxgetinfo (lua_State *L, const char *what, lua_Debug *ar,
case 'n': { case 'n': {
ar->namewhat = (ci) ? getfuncname(ci, &ar->name) : NULL; ar->namewhat = (ci) ? getfuncname(ci, &ar->name) : NULL;
if (ar->namewhat == NULL) { if (ar->namewhat == NULL) {
/* try to find a global name */ ar->namewhat = ""; /* not found */
if ((ar->name = travglobals(L, f)) != NULL) ar->name = NULL;
ar->namewhat = "global";
else ar->namewhat = ""; /* not found */
} }
break; break;
} }