如何使用gdb从核心文件获取lua堆栈跟踪

基于上面的评论，我建议阅读以下文章：使用 C++ 调试器的 Lua 调用栈。它给出了关于调试 Lua / C++ 组合的很好的概述，特别是“检查 Lua 数据结构”一节在调试核心转储时非常有用。

你可以查看我的Lua GDB helpers。这是一组宏，让您检查堆栈和值，甚至打印回溯。本质上，这就是由macs引用的文章，使用简单。

它提供了这些宏：

• luastack [L] - 列出当前Lua C堆栈上的值。

• luaprint < value > [verbose] - 漂亮地打印传递作为参数的TValue。期望一个TValue的指针。当verbose为1时，展开表，元表和用户数据环境。

• luaprinttable < table > - 漂亮地打印Lua表。期望一个Table的指针。

• luavalue < index > [L] - 在索引处转储单个值。

• luatraceback [L] - 调用“debug.traceback()”。不确定它是否适用于核心文件...

我已经创建了一个 GDB 脚本，用于执行 macs 所链接的网页中的操作。这个脚本并不完美，可能需要将其适当地包装成一个函数等，但是可以在感兴趣的人查看。

注意: 该网页似乎在 lua 函数的文件名方面是错误的。如果字符串来自于 luaL_dofile()，则文件名以 @ 符号开头。如果从 lua_dostring() 调用它们，则 $filename 变量设置为传递给 lua_dostring() 的整个字符串 - 用户可能只对该文件中一两行上下文感兴趣。我不确定如何进行修复。

set $p = L->base_ci
while ($p <= L->ci )
  if ( $p->func->value.gc->cl.c.isC == 1 )
    printf "0x%x   C FUNCTION", $p
    output $p->func->value.gc->cl.c.f
    printf "\n"
  else
    if ($p->func.tt==6)
      set $proto = $p->func->value.gc->cl.l.p
      set $filename = (char*)(&($proto->source->tsv) + 1)
      set $lineno = $proto->lineinfo[ $p->savedpc - $proto->code -1 ]
      printf "0x%x LUA FUNCTION : %d %s\n", $p, $lineno, $filename
    else
      printf "0x%x LUA BASE\n", $p
    end
  end
  set $p = $p+1
end

这将输出类似于以下内容:

0x1002b0 LUA BASE
0x1002c8 LUA FUNCTION : 4 @a.lua
0x1002e0 LUA FUNCTION : 3 @b.lua
0x100310   C FUNCTION(lua_CFunction) 0x1fda <crash_function(lua_State*)>

当我调试这段代码时:

// This is a file designed to crash horribly when run.
// It should generate a core, and it should crash inside some lua functions

#include "lua.h"
#include "lualib.h"
#include "lauxlib.h"

#include <iostream>
#include <signal.h>

int crash_function(lua_State * L)
{
  raise( SIGABRT ); //This should dump core!
  return 0;
}

int main()
{
  lua_State * L = luaL_newstate();
  lua_pushcfunction(L, crash_function);
  lua_setfield(L, LUA_GLOBALSINDEX, "C");

  luaopen_base(L);
  if( 1 == luaL_dofile(L, "a.lua" ))
  {
    std::cout<<"ERROR: "<<lua_tostring(L,-1)<<std::endl;
    return 1;
  }
  if( 1 == luaL_dofile(L, "b.lua" ))
  {
    std::cout<<"ERROR: "<<lua_tostring(L,-1)<<std::endl;
    return 1;
  }

  lua_getfield(L, LUA_GLOBALSINDEX, "A");
  lua_pcall(L, 0, 0, NULL);
}

使用 a.lua

-- a.lua
-- just calls B, which calls C which should crash
function A()
  B()
end

和 b.lua

-- b.lua
function B()
  C()
end

这是对Michael Anderson的GDB脚本的小变化：我不得不使用它，因为他的脚本中出现了“Cannot access memory at address 0x656d”错误，由于我的core dump中的“L->base_ci”无效。此代码从顶层框架(L->ci)开始向下进行相反方向的遍历，避免了无效的“L->base_ci”指针。

set $p = L->ci
while ($p > L->base_ci )
  if ( $p->func->value.gc->cl.c.isC == 1 )
    printf "0x%x   C FUNCTION ", $p
    output $p->func->value.gc->cl.c.f
    printf "\n"
  else
    if ($p->func.tt==6)
      set $proto = $p->func->value.gc->cl.l.p
      set $filename = (char*)(&($proto->source->tsv) + 1)
      set $lineno = $proto->lineinfo[ $p->savedpc - $proto->code -1 ]
      printf "0x%x LUA FUNCTION : %d %s\n", $p, $lineno, $filename
    else
      printf "0x%x LUA BASE\n", $p
    end
  end
  set $p = $p - 1
end