Question

我想在库中放置两个别名变量，以便应用程序代码可以使用任一名称。但我发现它可以在静态库中完成，但不能在共享库中完成。这是我的实验。我是在带有gcc编译器的X86 Linux机器上完成的。

test.c - 应用程序代码

#include <stdio.h>   
extern int myfunc(int, int);
extern int myglob;
extern int myglob_;

int main(int argc, const char* argv[])
{
    printf("&myglob = %p\n", &myglob);
    printf("&myglob_ = %p\n", &myglob_); 
    myglob = 1234;
    printf("myglob = %d\n", myglob);
    printf("myglob_ = %d\n", myglob_);

    return myfunc(argc, argc);
}

my.c - 库代码

int myglob = 42;
extern int myglob_ __attribute__ ((alias("myglob")));   
int myfunc(int a, int b)
{
    myglob += a;
    return b + myglob;
}

使用静态库构建和运行。我们可以看到myglob和myglob_确实是别名。

gcc -c my.c
ar rsc libmy.a my.o
gcc -o test test.c -L. -lmy
./test
&myglob = 0x601040
&myglob_ = 0x601040
myglob = 1234
myglob_ = 1234

使用共享库构建和运行。我们可以看到myglob和myglob_指向不同的地址，基本上是两个不同的变量。

gcc -fPIC -c my.c
gcc -shared -o libmy.so my.o
gcc -o test test.c -L. -lmy
./test
&myglob = 0x601048
&myglob_ = 0x601050
myglob = 1234
myglob_ = 42

那么，为什么别名符号在共享库中不起作用？怎么解决？感谢。

=============跟进===============

我尝试使用＆＃34; gcc -o test test.c -L构建一个与位置无关的可执行文件。 -lmy -fPIC＆＃34;。有了这个， myglob和myglob_确实是共享库的别名。但是，这种方法在产生问题的背景问题中不起作用。我列出了问题以及我需要它的原因。（注意我必须在我的项目中使用F77公共块）

Fortran头文件

! myf.h
common /myblock/ myglob
save myblock

Fortran中的Init例程

! initf.f90
subroutine initf()
    integer myglob
    common /myblock/  myglob
    call initc(myglob)
end subroutine

C中的初始化程序

// initc.c
#include <stdio.h>
extern void initf_(); 
void init() { initf_(); }
extern void init_() __attribute__((alias("init")));
void initc_(int *pmyglob) { printf("&myglob in library = %p\n", pmyglob); }

C

中的Fortran库包装器

// my.c
#include <stdio.h>
extern void myfunc(int *pmyglob)
{
    printf("&myglob in app     = %p\n", pmyglob);
    // May call a Fortran subroutine. That's why myfunc() is a wrapper
}
extern void myfunc_(int *) __attribute__ ((alias("myfunc")));
typedef struct myblock_t_ {
    int idx;
} myblock_t;
myblock_t myblock __attribute__((aligned(16))) = {0};
extern myblock_t myblock_ __attribute__((alias("myblock")));

在Fortran中的应用程序

! test.f90
program main
    include 'myf.h'
    call init();
    call myfunc(myglob);
end program

构建共享库libmy.so并使用它

gfortran -fPIC -c initf.f90
gcc -fPIC -c initc.c
gcc -fPIC -c my.c
gcc -fPIC -shared -o libmy.so initf.o initc.o my.o
gfortran -fPIC -o test test.f90 -L. -lmy
./test
&myglob in library = 0x601070
&myglob in app     = 0x601070

假设我们希望库是可移植的，并且应用程序由另一个具有不同名称修改约定的Fortran编译器编译（我使用gfortran --fno-underscoring来模仿它）

// libmy.so is built as same as above
...
gfortran -fPIC -fno-underscoring  -o test test.f90 -L. -lmy
./test
&myglob in library = 0x7fb3c19d9060
&myglob in app     = 0x601070

有什么建议吗？感谢。

Answer 1

这是因为复制重定位而发生的。阅读他们here。

 readelf -Wr test | grep myglob
0000000000601028  0000000600000005 R_X86_64_COPY  0000000000601028 myglob + 0
0000000000601030  0000000900000005 R_X86_64_COPY  0000000000601030 myglob_ + 0

如何在共享库中使用别名变量？

1 个答案: