1

我的程序出现分段错误。

事实上，我用 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++：链接库在执行期间消失并给出段错误

4

1 回答 1

1

我发现了问题。

请参阅我的另一篇文章： C++：链接库在执行期间消失并给出段错误

我的图书馆有一个未定义的符号。我定义了它并解决了问题！

令人困惑的是，我的程序在 tcl 包装函数的中间崩溃了（我的未定义符号根本不涉及）。我真的不知道为什么，但就是这样。。

希望它会帮助别人！

于 2013-08-22T12:25:33.503 回答