我正在尝试使用 xlc_r 在 AIX 5.3 上编译 Ruby 1.9.3-p125。我想使用 --enable-load-relative 但这依赖于 dladdr() 函数来获取 Ruby 共享库的路径名,并且 dladdr() 在 AIX 上不可用。我基于对 loadquery(L_GETINFO) 的调用在 AIX 的root.cern.ch 上找到了 dladdr() 的实现。
loadquery(L_GETINFO) 调用获取组成程序的二进制文件的列表。因此,为了实现 dladdr(),我正在检查传递给 dladdr 的函数地址是否介于 ldinfo_textorg 和 ldinfo_textorg+ldinfo_textsize 之间。但是对于返回的任何结构,函数的地址都不在此地址范围内。也许我没有正确解释 ld_info 结构。
我附上了我正在测试的代码。可以为这些问题提供的任何帮助将不胜感激。
#include <sys/types.h>
#include <sys/ldr.h>
#include <stdlib.h>
#include <stdio.h>
typedef struct {
char* dli_fname;
} Dl_info;
int
dladdr(void* s, Dl_info* i) {
size_t bufSize = 40960;
struct ld_info* ldi;
void *buf;
int r;
printf("sym at %lu\n", (ulong)s);
buf = (void *)malloc(bufSize);
if (!buf) {
i->dli_fname = 0;
return 0;
}
r = loadquery((int)L_GETINFO, buf, (int)bufSize);
if (r == -1) {
i->dli_fname = 0;
return 0;
}
do {
ldi = (struct ld_info*)buf;
printf("checking %s, text %lu - %lu\n", ldi->ldinfo_filename, (ulong)ldi->ldinfo_textorg, (ulong)(ldi->ldinfo_textorg + ldi->ldinfo_textsize));
if ((ldi->ldinfo_textorg <= s)
&& (s < (ldi->ldinfo_textorg + ldi->ldinfo_textsize))) {
i->dli_fname = ldi->ldinfo_filename;
return 1;
}
buf += ldi->ldinfo_next;
} while (ldi->ldinfo_next);
i->dli_fname = 0;
return 0;
}
int
test_func() { 1; }
int
main() {
Dl_info dli;
int rc = dladdr((void *)test_func, &dli);
printf("rc = %d\n", rc);
if (rc) {
printf("dli.dli_fname = %s\n", dli.dli_fname);
}
}
2012 年 4 月 30 日更新: 当我最初发布这个问题时,我还看到 loadquery(L_GETINFO) 从 64 位程序调用时会导致分段冲突。我不能没有 64 位,所以这对我来说是一个很好的选择。现在看起来这是编译器安装的问题;其他 AIX 机器可以在 64 位模式下编译和运行代码。
堆栈回溯如下所示:
.() at 0xf458
usl_getinfo_user(??, ??, ??, ??) at 0x9fffffff00096b8
uloadquery(??, ??, ??, ??, ??, ??, ??) at 0x9fffffff0009b40
loadquery(0x200000002, 0x1000b3f0, 0xa0000000a000, 0x0, 0x0, 0x0, 0x0, 0x0) at 0x900000000043874
dladdr(s = 0x0000000110000900, i = 0x0ffffffffffffa00), line 18 in "dladdr.c"
main(), line 11 in "test_dladdr.c"