segfault使用SWIG转换的tcl代码

segfault using SWIG converted code for tcl

本文关键字：tcl 代码 转换 使用 SWIG segfault      更新时间：2023-10-16

我的程序出现分段错误。

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

segfault发生在这里：

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++：链接库在执行时消失并给出segfault

我发现了问题。

请参阅我的另一篇帖子：C++：链接库在执行时消失并给出segfault

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

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

希望它能帮助其他人！

相关文章：