GnuCOBOL未能找到动态符号，仅在最近的Ubuntu上

Question

我认为最近发生了一些变化。

GnuCOBOL依靠动态链接，在运行时用dlsym查找符号。这个CALL运行时支持代码现在在OpenCOBOL已经有7年了。它不再适用于Ubuntu 14.04，但在Fedora 19/20下运行。

LDD不再示出了使用-l

例如作为测试任何库中列出的，Ubuntu 14.04.1

以下COBOL程序

identification division. 
    program-id. simple. 

    procedure division. 
    call "gtk_init" using 
     by value 0 
     by reference null 
    returning omitted 
    end-call 
    goback. 
    end program simple. 


$ cobc -x -v -lgtk-3 simple.cob 
preprocessing simple.cob into /tmp/cob710_0.cob 
parsing /tmp/cob710_0.cob (simple.cob) 
Return status: 0 
translating /tmp/cob710_0.cob into /tmp/cob710_0.c (simple.cob) 
gcc -pipe -c -I/usr/local/include -Wno-unused -fsigned-char -Wno-pointer-sign -o "/tmp/cob710_0.o" "/tmp/cob710_0.c" 
gcc -pipe -Wl,--export-dynamic -o simple /tmp/cob710_0.o -L/usr/local/lib -lcob -lm -lgmp -lncurses -ldb -ldl -l"gtk-3" 

二进制具有NO指示libgtk -3.so正在混合中。

./simple 
libcob: Cannot find module 'gtk_init' 

$ ldd simple 
    linux-vdso.so.1 => (0x00007fff2c9fe000) 
    libcob.so.1 => /usr/local/lib/libcob.so.1 (0x00007f2549b06000) 
    libc.so.6 => /lib/x86_64-linux-gnu/libc.so.6 (0x00007f2549740000) 
    libm.so.6 => /lib/x86_64-linux-gnu/libm.so.6 (0x00007f2549439000) 
    libgmp.so.10 => /usr/lib/x86_64-linux-gnu/libgmp.so.10 (0x00007f25491c5000) 
    libncurses.so.5 => /lib/x86_64-linux-gnu/libncurses.so.5 (0x00007f2548fa2000) 
    libtinfo.so.5 => /lib/x86_64-linux-gnu/libtinfo.so.5 (0x00007f2548d78000) 
    libdb-5.3.so => /usr/lib/x86_64-linux-gnu/libdb-5.3.so (0x00007f25489d6000) 
    libdl.so.2 => /lib/x86_64-linux-gnu/libdl.so.2 (0x00007f25487d2000) 
    /lib64/ld-linux-x86-64.so.2 (0x00007f2549d56000) 
    libpthread.so.0 => /lib/x86_64-linux-gnu/libpthread.so.0 (0x00007f25485b3000) 

，然后在Fedora 20，同一版本的编译器（内置略有不同，寻找ncursesw而不是ncurses的 - 假设这是手头没有问题的一部分）

$ cobc -x -v -lgtk-3 simple.cob 
Command line: cobc -x -v -lgtk-3 simple.cob 
Preprocessing: simple.cob -> /tmp/cob20658_0.cob 
Return status: 0 
Parsing:  /tmp/cob20658_0.cob (simple.cob) 
Return status: 0 
Translating: /tmp/cob20658_0.cob -> /tmp/cob20658_0.c (simple.cob) 
Executing:  gcc -std=gnu99 -c -I/usr/local/include -pipe -Wno-unused 
       -fsigned-char -Wno-pointer-sign -o "/tmp/cob20658_0.o" 
       "/tmp/cob20658_0.c" 
Return status: 0 
Executing:  gcc -std=gnu99 -Wl,--export-dynamic -o "simple" 
       "/tmp/cob20658_0.o" -L/usr/local/lib -lcob -lm -lgmp 
       -lncursesw -ldb -ldl -l"gtk-3" 
Return status: 0 

$ ldd simple 
    linux-vdso.so.1 => (0x00007fffae9cf000) 
    libcob.so.4 => /usr/local/lib/libcob.so.4 (0x00007f4ff2548000) 
    libm.so.6 => /lib64/libm.so.6 (0x0000003e5ae00000) 
    libgmp.so.10 => /lib64/libgmp.so.10 (0x0000003e7a200000) 
    libncursesw.so.5 => /lib64/libncursesw.so.5 (0x0000003e5d200000) 
    libtinfo.so.5 => /lib64/libtinfo.so.5 (0x0000003e69800000) 
    libdb-5.3.so => /lib64/libdb-5.3.so (0x0000003e6ac00000) 
    libdl.so.2 => /lib64/libdl.so.2 (0x0000003e5b200000) 
    libgtk-3.so.0 => /lib64/libgtk-3.so.0 (0x0000003e6ba00000) 
    libc.so.6 => /lib64/libc.so.6 (0x0000003e5aa00000) 
    libpthread.so.0 => /lib64/libpthread.so.0 (0x0000003e5b600000) 
    /lib64/ld-linux-x86-64.so.2 (0x0000003e5a600000) 
    libgdk-3.so.0 => /lib64/libgdk-3.so.0 (0x0000003e6a800000) 
    libgmodule-2.0.so.0 => /lib64/libgmodule-2.0.so.0 (0x0000003e65600000) 
    libpangocairo-1.0.so.0 => /lib64/libpangocairo-1.0.so.0 (0x0000003e75200000) 
    libX11.so.6 => /lib64/libX11.so.6 (0x00007f4ff2206000) 
    libXi.so.6 => /lib64/libXi.so.6 (0x0000003e62600000) 
    libXfixes.so.3 => /lib64/libXfixes.so.3 (0x0000003e5fe00000) 
    libcairo-gobject.so.2 => /lib64/libcairo-gobject.so.2 (0x0000003e6a400000) 
    libcairo.so.2 => /lib64/libcairo.so.2 (0x0000003e71000000) 
    libgdk_pixbuf-2.0.so.0 => /lib64/libgdk_pixbuf-2.0.so.0 (0x0000003e6e000000) 
    libatk-1.0.so.0 => /lib64/libatk-1.0.so.0 (0x0000003e75600000) 
    libatk-bridge-2.0.so.0 => /lib64/libatk-bridge-2.0.so.0 (0x0000003e6c600000) 
    libpangoft2-1.0.so.0 => /lib64/libpangoft2-1.0.so.0 (0x0000003e71c00000) 
    libpango-1.0.so.0 => /lib64/libpango-1.0.so.0 (0x0000003e73600000) 
    libfontconfig.so.1 => /lib64/libfontconfig.so.1 (0x0000003e61600000) 
    libgio-2.0.so.0 => /lib64/libgio-2.0.so.0 (0x0000003e66600000) 
    libgobject-2.0.so.0 => /lib64/libgobject-2.0.so.0 (0x0000003e5fa00000) 
    libglib-2.0.so.0 => /lib64/libglib-2.0.so.0 (0x0000003e5e600000) 
    libXinerama.so.1 => /lib64/libXinerama.so.1 (0x0000003e61e00000) 
    libXrandr.so.2 => /lib64/libXrandr.so.2 (0x0000003e62200000) 
    libXcursor.so.1 => /lib64/libXcursor.so.1 (0x0000003e62e00000) 
    libXcomposite.so.1 => /lib64/libXcomposite.so.1 (0x0000003e74e00000) 
    libXdamage.so.1 => /lib64/libXdamage.so.1 (0x0000003e67e00000) 
    libwayland-client.so.0 => /lib64/libwayland-client.so.0 (0x0000003e6ec00000) 
    libxkbcommon.so.0 => /lib64/libxkbcommon.so.0 (0x0000003e6b000000) 
    libwayland-cursor.so.0 => /lib64/libwayland-cursor.so.0 (0x0000003e69c00000) 
    libXext.so.6 => /lib64/libXext.so.6 (0x0000003e5ea00000) 
    librt.so.1 => /lib64/librt.so.1 (0x0000003e5ce00000) 
    libgthread-2.0.so.0 => /lib64/libgthread-2.0.so.0 (0x0000003e61a00000) 
    libharfbuzz.so.0 => /lib64/libharfbuzz.so.0 (0x0000003e6f000000) 
    libfreetype.so.6 => /lib64/libfreetype.so.6 (0x0000003e60e00000) 
    libxcb.so.1 => /lib64/libxcb.so.1 (0x0000003e5da00000) 
    libpixman-1.so.0 => /lib64/libpixman-1.so.0 (0x0000003e6f800000) 
    libEGL.so.1 => /lib64/libEGL.so.1 (0x0000003e73200000) 
    libpng16.so.16 => /lib64/libpng16.so.16 (0x0000003e5f600000) 
    libxcb-shm.so.0 => /lib64/libxcb-shm.so.0 (0x0000003e6e800000) 
    libxcb-render.so.0 => /lib64/libxcb-render.so.0 (0x0000003e70800000) 
    libXrender.so.1 => /lib64/libXrender.so.1 (0x0000003e61200000) 
    libz.so.1 => /lib64/libz.so.1 (0x0000003e5ba00000) 
    libGL.so.1 => /lib64/libGL.so.1 (0x0000003e68200000) 
    libatspi.so.0 => /lib64/libatspi.so.0 (0x0000003e6c200000) 
    libdbus-1.so.3 => /lib64/libdbus-1.so.3 (0x0000003e62a00000) 
    libexpat.so.1 => /lib64/libexpat.so.1 (0x0000003e60a00000) 
    libffi.so.6 => /lib64/libffi.so.6 (0x0000003e5ee00000) 
    libselinux.so.1 => /lib64/libselinux.so.1 (0x0000003e5ca00000) 
    libresolv.so.2 => /lib64/libresolv.so.2 (0x0000003e5e200000) 
    libgraphite2.so.3 => /lib64/libgraphite2.so.3 (0x0000003e6fc00000) 
    libXau.so.6 => /lib64/libXau.so.6 (0x0000003e5d600000) 
    libX11-xcb.so.1 => /lib64/libX11-xcb.so.1 (0x0000003e65e00000) 
    libxcb-dri2.so.0 => /lib64/libxcb-dri2.so.0 (0x0000003e67200000) 
    libxcb-xfixes.so.0 => /lib64/libxcb-xfixes.so.0 (0x0000003e70400000) 
    libxcb-shape.so.0 => /lib64/libxcb-shape.so.0 (0x0000003e72a00000) 
    libgbm.so.1 => /lib64/libgbm.so.1 (0x0000003e70c00000) 
    libudev.so.1 => /lib64/libudev.so.1 (0x0000003e63200000) 
    libwayland-server.so.0 => /lib64/libwayland-server.so.0 (0x0000003e74a00000) 
    libglapi.so.0 => /lib64/libglapi.so.0 (0x0000003e67600000) 
    libdrm.so.2 => /lib64/libdrm.so.2 (0x0000003e67a00000) 
    libxcb-glx.so.0 => /lib64/libxcb-glx.so.0 (0x0000003e66e00000) 
    libXxf86vm.so.1 => /lib64/libXxf86vm.so.1 (0x0000003e66200000) 
    libpcre.so.1 => /lib64/libpcre.so.1 (0x0000003e5c600000) 
    liblzma.so.5 => /lib64/liblzma.so.5 (0x0000003e5c200000) 
    libgcc_s.so.1 => /lib64/libgcc_s.so.1 (0x0000003e5be00000) 

生成的C代码在Ubuntu

/* Line: 4   : CALL    : simple.cob */ 
cob_procedure_params[0] = (cob_field *)&c_1; 
cob_procedure_params[1] = NULL; 
cob_glob_ptr->cob_call_params = 2; 
if (unlikely(call_gtk_init.funcvoid == NULL)) { 
    call_gtk_init.funcvoid = cob_resolve_cobol ("gtk_init", 0, 1); 
} 
call_gtk_init.funcnull ((cob_s32_t)0LL, NULL); 
b_1 = 0; 

和Fedora

/* Line: 4   : CALL    : simple.cob */ 
cob_procedure_params[0] = (cob_field *)&c_1; 
cob_procedure_params[1] = NULL; 
cob_glob_ptr->cob_call_params = 2; 
if (unlikely(call_gtk_init.funcvoid == NULL)) { 
    call_gtk_init.funcvoid = cob_resolve_cobol ("gtk_init", 0, 1); 
} 
call_gtk_init.funcnull ((cob_s32_t)0LL, NULL); 
b_1 = 0; 

0（GnuCOBOL采用C中间体）

当从C调用gtk_init时，我在Ubuntu上获得了良好的结果（完整的ELF链接提示），而不是作为传递给cob_resolve的字符串。使用gcc测试-o simple simple-gtk.c -lgtk-3

那么围绕-llibname的假设会发生什么变化？它似乎并没有包含在ELF数据中，因为dlopen甚至懒得试图寻找libgtk-3.so

更多信息：Ubuntu上的错误编译行实际上使它看起来像这应该工作。 （拼写错误GTK）

$ cobc -x -v -lgkt-3 simple.cob 
Command line: cobc -x -v -lgkt-3 simple.cob 
Preprocessing: simple.cob -> /tmp/cob13556_0.cob 
Return status: 0 
Parsing:  /tmp/cob13556_0.cob (simple.cob) 
Return status: 0 
Translating: /tmp/cob13556_0.cob -> /tmp/cob13556_0.c (simple.cob) 
Executing:  gcc -std=gnu99 -c -I/usr/local/include -pipe -Wno-unused 
       -fsigned-char -Wno-pointer-sign -o "/tmp/cob13556_0.o" 
       "/tmp/cob13556_0.c" 
Return status: 0 
Executing:  gcc -std=gnu99 -Wl,--export-dynamic -o "simple" 
       "/tmp/cob13556_0.o" -L/usr/local/lib -lcob -lm -lgmp -lncurses 
       -ldb -ldl -l"gkt-3" 
/usr/bin/ld: cannot find -lgkt-3 
collect2: error: ld returned 1 exit status 
Return status: 256 

然而，用正确的编译行的ELF未显示任何提示连接到GTK-3

我一直头现在和关闭刮伤上这一段时间。寻找关于使用Ubuntu和gcc和/或ld和/或dlopen dlsym更改哪些假设的提示。

开放式cobol软件包在Debian和Ubuntu软件库上工作了好几年了。甚至在Ubuntu上的旧版本的GnuCOBOL（GNU Cobol，或OpenCOBOL）现在都失败了。一些东西改变了，我们没有得到备忘录。不止是愿意更改编译器源代码，而是首先寻找友好的StackOverflow洞察。

这似乎不是一个本地环境问题，因为这个Ubuntu问题也向其他人展示。这也感觉就像那些DOH中的一个！很容易解决问题。

更愿意增加更多的编译日志，LD_DEBUG =所有场，或straces等更多

Answer 1

这看起来是一个变化的编译器驱动程序进行了Ubuntu的 - 它的代码发送到时添加--as-needed选项编译行collect2 aka链接器。

要了解发生了什么，我们需要拆开COBC的执行更超过电子钱包正在显示它：

cobc -x -v simple.cob -lgtk-3 
preprocessing simple.cob into /tmp/cob2743_0.cob 
translating /tmp/cob2743_0.cob into /tmp/cob2743_0.c 
gcc -pipe -c -Wno-unused -fsigned-char -Wno-pointer-sign -o /tmp/cob2743_0.o /tmp/cob2743_0.c 
gcc -pipe -Wl,--export-dynamic -o simple /tmp/cob2743_0.o -L/usr/lib -lcob -lm -lgmp -lncurses -ldb -ldl -lgtk-3 

如果我们分解成生成C代码，然后编译它，我们得到：

cobc -C -x -v simple.cob 
gcc -pipe -c -Wno-unused -fsigned-char -Wno-pointer-sign -o simple.o simple.c 
gcc -pipe -Wl,--export-dynamic -o simple simple.o -L/usr/lib -lcob -lm -lgmp -lncurses -ldb -ldl -lgtk-3 

我们需要的最后一行gcc进一步分解成：

gcc -### -pipe -Wl,--export-dynamic -o simple simple.o -L/usr/lib -lcob -lm -lgmp -lncurses -ldb -ldl -lgtk-3 

这yiel DS作为输出：

/usr/lib/gcc/x86_64-linux-gnu/4.8/collect2 "--sysroot=/" --build-id --eh-frame-hdr -m elf_x86_64 "--hash-style=gnu" --as-needed -dynamic-linker /lib64/ld-linux-x86-64.so.2 -z relro -o simple /usr/lib/gcc/x86_64-linux-gnu/4.8/../../../x86_64-linux-gnu/crt1.o /usr/lib/gcc/x86_64-linux-gnu/4.8/../../../x86_64-linux-gnu/crti.o /usr/lib/gcc/x86_64-linux-gnu/4.8/crtbegin.o -L/usr/lib -L/usr/lib/gcc/x86_64-linux-gnu/4.8 -L/usr/lib/gcc/x86_64-linux-gnu/4.8/../../../x86_64-linux-gnu -L/usr/lib/gcc/x86_64-linux-gnu/4.8/../../../../lib -L/lib/x86_64-linux-gnu -L/lib/../lib -L/usr/lib/x86_64-linux-gnu -L/usr/lib/../lib -L/usr/lib/gcc/x86_64-linux-gnu/4.8/../../.. --export-dynamic simple.o -lcob -lm -lgmp -lncurses -ldb -ldl -lgtk-3 -lgcc --as-needed -lgcc_s --no-as-needed -lc -lgcc --as-needed -lgcc_s --no-as-needed /usr/lib/gcc/x86_64-linux-gnu/4.8/crtend.o /usr/lib/gcc/x86_64-linux-gnu/4.8/../../../x86_64-linux-gnu/crtn.o 

的问题是第一--as-needed选项的存在 - 它颠覆了所有明确-l选项在命令行上 - 如果没有什么在.o的组成文件中找到这取决于库，它不会链接库 - 这是确切的动态加载情况。

这似乎be the case since Oneiric。

这个简单的解决方法是增加：

COB_LDFLAGS=-Wl,--no-as-needed 

你的环境，这应该可以解决链接问题。

Answer 2

这似乎从输出动态查找gtk_init C代码不知道有关装载共享的实际libgtk-3.so对象在运行时。

您可以使用-fstatic-call选项与cobc进行编译。这将直接调用您的库函数，如gtk_init，而不是通过调用dlopen/dlsym。该选项的详细信息可以在信息页面通过命令info opencobol发现：

随着编译器选项-fstatic呼叫，更高效的代码将被 这样产生的：

subr(X); 

请注意，此选项仅在被调用程序名称 是文字（如CALL "subr".'). With a data name (like CALL SUBR。）时才有效，程序仍然是动态调用的。

如果你想走动态路线，我只能建议告诉你的Cobol应用程序到底想要在运行时加载哪些动态对象。为此，您可以在启动应用程序之前设置环境变量COB_PRE_LOAD。有关此环境变量的信息可以在此Open Cobol documentation中找到。尤其是这样说的：

COB_PRE_LOAD是一个环境变量，控制什么动态链接模块包括在运行。

$ cobc occurl.c 
$ cobc occgi.c 
$ cobc -x myprog.cob 
$ export COB_PRE_LOAD=occurl:occgi 
$ ./myprog 

这将使OpenCOBOL运行链接解析器以找到occurl.so模块中的CALL“CBL_OC_CURL_INIT”的入口点。注意：COB_PRE_LOAD环境变量中列出的模块不具有扩展名。 OpenCOBOL将在各种平台上做正确的事情。

您可以（使用bash）做了几个方面：

COB_PRE_LOAD=libgtk-3 ./simple 

这将设置COB_PRE_LOAD使用libgtk-3.so（你离开关.so）启动应用程序，并在完成时重置COB_PRE_LOAD回这是什么。您还可以使用export设置环境变量的会话与持续时间：

export COB_PRE_LOAD=libgtk-3 
./simple 

您可以通过每一个冒号分隔指定使用COB_PRE_LOAD多个共享对象。所以，如果你需要libgtk-3和libgmp例如，你可以这样做：

COB_PRE_LOAD=libgtk-3:libgmp ./simple