Windows下tclfftw启用TCL stubs时库初始化失败求助

问题背景 #

环境：Windows msys2 mingw64，Tcl 8.6
我可正常配置、编译并运行tclfftw包，但启用TCL Stubs时会触发**"library initialisation failed"**错误。目前临时方案是绕开Stubs直接链接Tcl DLL（修改见下文），能正常运行且测试通过，但Stubs模式的问题仍未解决。我的纯C代码使用Stubs完全没问题，但这个C++编写的tclfftw包却不行。

临时绕开Stubs的修改 #

configure.ac修改

if test "${TEA_PLATFORM}" = "windows" ; then
    # Use full Tcl DLL instead of stub library  
    TCL_LIB_FILE="libtcl86.dll.a"
    TCL_LIB_PATH="${TCL_BIN_DIR}/${TCL_LIB_FILE}"
    SHLIB_LD_LIBS="\${LIBS} \"`\${CYGPATH} \${TCL_LIB_PATH}`\" -static-libgcc"
    
    # Remove -static flag from LDFLAGS (keep -static-libgcc -static-libstdc++)
    LDFLAGS=`echo "$LDFLAGS" | sed 's/ -static$//'`
fi

Makefile.in修改

# Original DEFS from configure with stubs
DEFS_WITH_STUBS = @DEFS@ $(PKG_CFLAGS)
# Remove stubs defines for direct Tcl linking
DEFS        = $(filter-out -DUSE_TCL_STUBS=1 -DUSE_TCLOO_STUBS=1,$(DEFS_WITH_STUBS))

构建命令（临时方案） #

将fftw3库和头文件放入子文件夹后执行：

autoconf
./configure --with-fftw3=./fftw
make
make install

针对Stubs模式的解决方案 #

1. 修复C++名称修饰问题 #

Tcl Stubs API是C语言约定，C++编译器会对函数名进行修饰，导致无法正确解析Stubs函数。需确保所有引用Tcl头文件的代码都用extern "C"包裹：

extern "C" {
#include <tcl.h>
#include <tclOO.h> // 若用到TclOO Stubs则添加
}

建议将此声明放在tclfftw的公共头文件中，避免每个文件重复编写。

2. 确保Stubs表正确初始化 #

C++全局构造函数执行顺序可能导致Stubs表未初始化就被调用，需在包初始化函数最开头执行Stubs初始化，并检查返回值：

// 包初始化函数示例
int Fftw_Init(Tcl_Interp *interp) {
    // 先初始化Tcl Stubs
    if (Tcl_InitStubs(interp, TCL_VERSION, 0) == NULL) {
        return TCL_ERROR;
    }
    // 若用到TclOO Stubs
    if (TclOO_InitStubs(interp, TCL_VERSION, 0) == NULL) {
        return TCL_ERROR;
    }
    
    // 后续初始化代码...
    return TCL_OK;
}

3. 调整MinGW链接器的Stubs库引用 #

修改configure.ac中Windows环境的Stubs配置，确保链接正确的Stubs静态库：

if test "${TEA_PLATFORM}" = "windows" ; then
    # 指定Tcl Stubs库路径
    TCL_STUB_LIB_FILE="libtclstub86.a"
    TCL_STUB_LIB_PATH="${TCL_LIB_DIR}/${TCL_STUB_LIB_FILE}"
    # TclOO Stubs库（若用到）
    TCLOO_STUB_LIB_FILE="libtcloostub86.a"
    TCLOO_STUB_LIB_PATH="${TCL_LIB_DIR}/${TCLOO_STUB_LIB_FILE}"
    
    SHLIB_LD_LIBS="\${LIBS} \"`\${CYGPATH} \${TCL_STUB_LIB_PATH}`\" \"`\${CYGPATH} \${TCLOO_STUB_LIB_PATH}`\" -static-libgcc"
    
    # 移除冲突的-static标志，保留静态标准库链接
    LDFLAGS=`echo "$LDFLAGS" | sed 's/ -static$//'`
fi

同时恢复Makefile.in中的DEFS配置，移除之前的Stubs定义过滤：

DEFS = @DEFS@ $(PKG_CFLAGS)

4. 调整C++编译选项 #

确保configure.ac中启用正确的C++编译支持：

AC_PROG_CXX
# 指定C++标准（如C++11，根据tclfftw需求调整）
AC_CXX_STANDARD([11])
AC_CXX_STANDARD_REQUIRED([yes])

验证步骤 #

1. 恢复configure.ac和Makefile.in的Stubs相关配置，应用上述修改
2. 重新编译安装：

autoconf
./configure --with-fftw3=./fftw
make clean
make
make install

3. 在Tcl shell中执行package require fftw，验证初始化是否成功

内容的提问来源于stack exchange，提问作者thomas