d78efd9f36
* elf/Makefile (tests): Add it. ($(objpfx)tst-tls-dlinfo): Depend on $(libdl). ($(objpfx)tst-tls-dlinfo.out): Depend on $(objpfx)tst-tlsmod2.so. * dlfcn/dlfcn.h (RTLD_DI_PROFILENAME, RTLD_DI_PROFILEOUT): New enum values, reserve unsupported requested names used on Solaris. (RTLD_DI_TLS_MODID, RTLD_DI_TLS_DATA): New enum values. (RTLD_DI_MAX): Likewise. * dlfcn/dlinfo.c (dlinfo_doit): Handle RTLD_DI_TLS_MODID and RTLD_DI_TLS_DATA. * elf/dl-tls.c (_dl_tls_get_addr_soft): New function. * sysdeps/generic/ldsodefs.h: Declare it. * elf/Versions (ld: GLIBC_PRIVATE): Add it. * elf/link.h (struct dl_phdr_info): New members dlpi_tls_modid, dlpi_tls_data. * elf/dl-iteratephdr.c (__dl_iterate_phdr): Fill them in. * include/link.h: Don't copy contents from elf/link.h. Instead, #include it while #define'ing around link_map. * elf/dl-debug.c (_dl_debug_initialize): Add a cast. Add bogus extern decl to verify link_map members. * elf/loadtest.c (MAPS): New macro, cast _r_debug._r_map. (OUT, main): Use it in place of _r_debug._r_map. * elf/unload.c: Likewise. * elf/unload2.c: Likewise. * elf/neededtest.c (check_loaded_objects): Likewise. * elf/neededtest2.c (check_loaded_objects): Likewise. * elf/neededtest3.c (check_loaded_objects): Likewise. * elf/neededtest4.c (check_loaded_objects): Likewise. * elf/circleload1.c (check_loaded_objects): Likewise.
60 lines
1.3 KiB
C
60 lines
1.3 KiB
C
#include <dlfcn.h>
|
|
#include <elf.h>
|
|
#include <errno.h>
|
|
#include <error.h>
|
|
#include <link.h>
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
|
|
#define MAPS ((struct link_map *) _r_debug.r_map)
|
|
|
|
#define OUT \
|
|
for (map = MAPS; map != NULL; map = map->l_next) \
|
|
if (map->l_type == lt_loaded) \
|
|
printf ("name = \"%s\", direct_opencount = %d\n", \
|
|
map->l_name, (int) map->l_direct_opencount); \
|
|
fflush (stdout)
|
|
|
|
int
|
|
main (void)
|
|
{
|
|
void *h[3];
|
|
struct link_map *map;
|
|
void (*fp) (void);
|
|
|
|
h[0] = dlopen ("unload2mod.so", RTLD_LAZY);
|
|
h[1] = dlopen ("unload2mod.so", RTLD_LAZY);
|
|
if (h[0] == NULL || h[1] == NULL)
|
|
error (EXIT_FAILURE, errno, "cannot load \"unload2mod.so\"");
|
|
h[2] = dlopen ("unload2dep.so", RTLD_LAZY);
|
|
if (h[2] == NULL)
|
|
error (EXIT_FAILURE, errno, "cannot load \"unload2dep.so\"");
|
|
|
|
puts ("\nAfter loading everything:");
|
|
OUT;
|
|
|
|
dlclose (h[0]);
|
|
|
|
puts ("\nAfter unloading \"unload2mod.so\" once:");
|
|
OUT;
|
|
|
|
dlclose (h[1]);
|
|
|
|
puts ("\nAfter unloading \"unload2mod.so\" twice:");
|
|
OUT;
|
|
|
|
fp = dlsym (h[2], "foo");
|
|
puts ("\nnow calling `foo'");
|
|
fflush (stdout);
|
|
fp ();
|
|
puts ("managed to call `foo'");
|
|
fflush (stdout);
|
|
|
|
dlclose (h[2]);
|
|
|
|
puts ("\nAfter unloading \"unload2dep.so\":");
|
|
OUT;
|
|
|
|
return 0;
|
|
}
|