#include <dlfcn.h> #include <link.h> #include <stdio.h> #include <stdlib.h> #include <string.h> #include <gnu/lib-names.h> int test (FILE *out, int a); int test (FILE *out, int a) { fputs ("in modstatic2.c (test)\n", out); void *handle = dlopen ("modstatic2-nonexistent.so", RTLD_LAZY); if (handle == NULL) fprintf (out, "nonexistent: %s\n", dlerror ()); else exit (1); handle = dlopen ("modstatic2.so", RTLD_LAZY); if (handle == NULL) { fprintf (out, "%s\n", dlerror ()); exit (1); } int (*test2) (FILE *, int); test2 = dlsym (handle, "test"); if (test2 == NULL) { fprintf (out, "%s\n", dlerror ()); exit (1); } if (test2 != test) { fprintf (out, "test %p != test2 %p\n", test, test2); exit (1); } Dl_info info; int res = dladdr (test2, &info); if (res == 0) { fputs ("dladdr returned 0\n", out); exit (1); } else { if (strstr (info.dli_fname, "modstatic2.so") == NULL || strcmp (info.dli_sname, "test") != 0) { fprintf (out, "fname %s sname %s\n", info.dli_fname, info.dli_sname); exit (1); } if (info.dli_saddr != (void *) test2) { fprintf (out, "saddr %p != test %p\n", info.dli_saddr, test2); exit (1); } } ElfW(Sym) *sym; void *symp; res = dladdr1 (test2, &info, &symp, RTLD_DL_SYMENT); if (res == 0) { fputs ("dladdr1 returned 0\n", out); exit (1); } else { if (strstr (info.dli_fname, "modstatic2.so") == NULL || strcmp (info.dli_sname, "test") != 0) { fprintf (out, "fname %s sname %s\n", info.dli_fname, info.dli_sname); exit (1); } if (info.dli_saddr != (void *) test2) { fprintf (out, "saddr %p != test %p\n", info.dli_saddr, test2); exit (1); } sym = symp; if (sym == NULL) { fputs ("sym == NULL\n", out); exit (1); } if (ELF32_ST_BIND (sym->st_info) != STB_GLOBAL || ELF32_ST_VISIBILITY (sym->st_other) != STV_DEFAULT) { fprintf (out, "bind %d visibility %d\n", (int) ELF32_ST_BIND (sym->st_info), (int) ELF32_ST_VISIBILITY (sym->st_other)); exit (1); } } Lmid_t lmid; res = dlinfo (handle, RTLD_DI_LMID, &lmid); if (res != 0) { fprintf (out, "dlinfo returned %d %s\n", res, dlerror ()); exit (1); } else if (lmid != LM_ID_BASE) { fprintf (out, "lmid %d != %d\n", (int) lmid, (int) LM_ID_BASE); exit (1); } void *handle2 = dlopen (LIBDL_SO, RTLD_LAZY); if (handle2 == NULL) { fprintf (out, "libdl.so: %s\n", dlerror ()); exit (1); } if (dlvsym (handle2, "_dlfcn_hook", "GLIBC_PRIVATE") == NULL) { fprintf (out, "dlvsym: %s\n", dlerror ()); exit (1); } void *(*dlsymfn) (void *, const char *); dlsymfn = dlsym (handle2, "dlsym"); if (dlsymfn == NULL) { fprintf (out, "dlsym \"dlsym\": %s\n", dlerror ()); exit (1); } void *test3 = dlsymfn (handle, "test"); if (test3 == NULL) { fprintf (out, "%s\n", dlerror ()); exit (1); } else if (test3 != (void *) test2) { fprintf (out, "test2 %p != test3 %p\n", test2, test3); exit (1); } dlclose (handle2); dlclose (handle); handle = dlmopen (LM_ID_BASE, "modstatic2.so", RTLD_LAZY); if (handle == NULL) { fprintf (out, "%s\n", dlerror ()); exit (1); } dlclose (handle); handle = dlmopen (LM_ID_NEWLM, "modstatic2.so", RTLD_LAZY); if (handle == NULL) fprintf (out, "LM_ID_NEWLM: %s\n", dlerror ()); else { fputs ("LM_ID_NEWLM unexpectedly succeeded\n", out); exit (1); } handle = dlopen ("modstatic.so", RTLD_LAZY); if (handle == NULL) { fprintf (out, "%s\n", dlerror ()); exit (1); } int (*test4) (int); test4 = dlsym (handle, "test"); if (test4 == NULL) { fprintf (out, "%s\n", dlerror ()); exit (1); } res = test4 (16); if (res != 16 + 16) { fprintf (out, "modstatic.so (test) returned %d\n", res); exit (1); } res = dladdr1 (test4, &info, &symp, RTLD_DL_SYMENT); if (res == 0) { fputs ("dladdr1 returned 0\n", out); exit (1); } else { if (strstr (info.dli_fname, "modstatic.so") == NULL || strcmp (info.dli_sname, "test") != 0) { fprintf (out, "fname %s sname %s\n", info.dli_fname, info.dli_sname); exit (1); } if (info.dli_saddr != (void *) test4) { fprintf (out, "saddr %p != test %p\n", info.dli_saddr, test4); exit (1); } sym = symp; if (sym == NULL) { fputs ("sym == NULL\n", out); exit (1); } if (ELF32_ST_BIND (sym->st_info) != STB_GLOBAL || ELF32_ST_VISIBILITY (sym->st_other) != STV_DEFAULT) { fprintf (out, "bind %d visibility %d\n", (int) ELF32_ST_BIND (sym->st_info), (int) ELF32_ST_VISIBILITY (sym->st_other)); exit (1); } } dlclose (handle); fputs ("leaving modstatic2.c (test)\n", out); return a + a; }