akkartik
/
teliva
1
1
Fork 0
Code Issues Pull Requests Releases Activity

drop a forward decl

This commit is contained in:
Kartik K. Agaram 2022-03-16 20:31:43 -07:00
parent 709cc25130
commit ed5efcd8a0
1 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/teliva.c
View File

@ -320,14 +320,6 @@ void append_string_to_array(lua_State* L, int array_index, const char* s) {
lua_rawseti(L, array_index, new_index);
}
static void save_caller_as(lua_State* L, const char* name, const char* caller_name);
void save_caller(lua_State* L, const char* name, int call_graph_depth) {
lua_Debug ar;
lua_getstack(L, 1, &ar);
lua_getinfo(L, "n", &ar);
if (ar.name) save_caller_as(L, name, ar.name);
}
static void save_caller_as(lua_State* L, const char* name, const char* caller_name) {
// push table of caller tables
luaL_newmetatable(L, "__teliva_caller");
@ -349,6 +341,13 @@ static void save_caller_as(lua_State* L, const char* name, const char* caller_na
lua_pop(L, 1); // table of caller tables
}
void save_caller(lua_State* L, const char* name, int call_graph_depth) {
lua_Debug ar;
lua_getstack(L, 1, &ar);
lua_getinfo(L, "n", &ar);
if (ar.name) save_caller_as(L, name, ar.name);
}
static void clear_caller(lua_State* L) {
int oldtop = lua_gettop(L);
luaL_newmetatable(L, "__teliva_caller");