Function getfuncname

Source/Misc/lua/src/lua.c:5052–5063

static const char *getfuncname (lua_State *L, CallInfo *ci, const char **name) {
Instruction i;
if ((isLua(ci) && ci->tailcalls > 0) || !isLua(ci - 1))
return NULL;  /* calling function is not Lua (or is unknown) */
ci--;  /* calling function */
i = ci_func(ci)->l.p->code[currentpc(L, ci)];
if (GET_OPCODE(i) == OP_CALL || GET_OPCODE(i) == OP_TAILCALL ||
GET_OPCODE(i) == OP_TFORLOOP)
return getobjname(L, ci, GETARG_A(i), name);
else
return NULL;  /* no useful name can be found */
}


/* only ANSI way to check whether a pointer points to an array */