c++ - 使用 SWIG 为 tcl 转换的代码的段错误

Question

我的程序存在段错误。

事实上，我用 C++ 编写了一个库，并使用 SWIG 将其转换为 tcl。

段错误发生在这里:

return Tcl_NewIntObj(static_cast< int >(value));

其中值=0

gdb 回溯显示:

(gdb) bt
#0  0x000054b6 in ?? ()
#1  0xb6650d5d in SWIG_From_long (value=0) at mntdisplay_wrap.cc:1712
#2  SWIG_From_int (value=0) at mntdisplay_wrap.cc:1722
#3  Testguimnt_Init (interp=0x9714e28) at mntdisplay_wrap.cc:3774
#4  0xb76748fe in Tcl_LoadObjCmd () from /opt/ActiveTcl-8.6/lib/libtcl8.6.so
#5  0xb75d02af in TclNREvalObjv () from /opt/ActiveTcl-8.6/lib/libtcl8.6.so
#6  0xb75d0859 in Tcl_EvalObjv () from /opt/ActiveTcl-8.6/lib/libtcl8.6.so
#7  0xb75d0d99 in TclEvalEx () from /opt/ActiveTcl-8.6/lib/libtcl8.6.so
#8  0xb7670045 in Tcl_FSEvalFileEx () from /opt/ActiveTcl-8.6/lib/libtcl8.6.so
#9  0xb767645f in Tcl_MainEx () from /opt/ActiveTcl-8.6/lib/libtcl8.6.so
#10 0x0804885c in main ()

在包装器中:第 1712 行:

SWIGINTERNINLINE Tcl_Obj* 
SWIG_From_long  (long value)
{
  if (((long) INT_MIN <= value) && (value <= (long) INT_MAX)) {
    return Tcl_NewIntObj(static_cast< int >(value));  //1712
  } else {
    return Tcl_NewLongObj(value);
  }
}

1722:

SWIGINTERNINLINE Tcl_Obj *
SWIG_From_int  (int value)
{    
  return SWIG_From_long  (value); //1722
}

3774:

SWIG_Tcl_SetConstantObj(interp, "MESSAGE_NEW", SWIG_From_int(static_cast< int >(MESSAGE_NEW)));

其中 MESSAGE_NEW 在枚举中定义且为 0。

拜托，如果你有任何想法，请帮助我。谢谢!

编辑:

我找到了问题的原因:这是一个链接错误。

我为这个问题创建了一个新线程:

C++: linked library disappears and gives segfault during execution

Answer 1

我发现了问题。

请看我的另一篇文章: C++: linked library disappears and gives segfault during execution

我的图书馆有一个 undefined symbol 。我定义了它，问题就解决了!

令人困惑的是，我的程序在 tcl 包装函数的中间崩溃了(我的 undefined symbol 根本没有涉及)。我真的不知道为什么，但就是这样..

希望对其他人有帮助!