glibc/elf/tst-tls8.c

175 lines
3.8 KiB
C
Raw Normal View History

#include <dlfcn.h>
#include <stdio.h>
#include <stdlib.h>
#include <link.h>
#include <tls.h>
#define TEST_FUNCTION do_test ()
static int
do_test (void)
{
#ifdef USE_TLS
static const char modname1[] = "tst-tlsmod3.so";
static const char modname2[] = "tst-tlsmod4.so";
int result = 0;
int (*fp1) (void);
int (*fp2) (int, int *);
void *h1;
void *h2;
int i;
int modid1 = -1;
int modid2 = -1;
int *bazp;
for (i = 0; i < 10; ++i)
{
h1 = dlopen (modname1, RTLD_LAZY);
if (h1 == NULL)
{
printf ("cannot open '%s': %s\n", modname1, dlerror ());
exit (1);
}
/* Dirty test code here: we peek into a private data structure.
We make sure that the module gets assigned the same ID every
time. The value of the first round is used. */
if (modid1 == -1)
modid1 = ((struct link_map *) h1)->l_tls_modid;
else if (((struct link_map *) h1)->l_tls_modid != modid1)
{
printf ("round %d: modid now %zd, initially %d\n",
i, ((struct link_map *) h1)->l_tls_modid, modid1);
result = 1;
}
fp1 = dlsym (h1, "in_dso2");
if (fp1 == NULL)
{
printf ("cannot get symbol 'in_dso2' in %s\n", modname1);
exit (1);
}
result |= fp1 ();
h2 = dlopen (modname2, RTLD_LAZY);
if (h2 == NULL)
{
printf ("cannot open '%s': %s\n", modname2, dlerror ());
exit (1);
}
/* Dirty test code here: we peek into a private data structure.
We make sure that the module gets assigned the same ID every
time. The value of the first round is used. */
if (modid2 == -1)
modid2 = ((struct link_map *) h1)->l_tls_modid;
else if (((struct link_map *) h1)->l_tls_modid != modid2)
{
printf ("round %d: modid now %zd, initially %d\n",
i, ((struct link_map *) h1)->l_tls_modid, modid2);
result = 1;
}
bazp = dlsym (h2, "baz");
if (bazp == NULL)
{
printf ("cannot get symbol 'baz' in %s\n", modname2);
exit (1);
}
*bazp = 42 + i;
fp2 = dlsym (h2, "in_dso");
if (fp2 == NULL)
{
printf ("cannot get symbol 'in_dso' in %s\n", modname2);
exit (1);
}
result |= fp2 (42 + i, bazp);
dlclose (h1);
dlclose (h2);
h1 = dlopen (modname1, RTLD_LAZY);
if (h1 == NULL)
{
printf ("cannot open '%s': %s\n", modname1, dlerror ());
exit (1);
}
/* Dirty test code here: we peek into a private data structure.
We make sure that the module gets assigned the same ID every
time. The value of the first round is used. */
if (((struct link_map *) h1)->l_tls_modid != modid1)
{
printf ("round %d: modid now %zd, initially %d\n",
i, ((struct link_map *) h1)->l_tls_modid, modid1);
result = 1;
}
fp1 = dlsym (h1, "in_dso2");
if (fp1 == NULL)
{
printf ("cannot get symbol 'in_dso2' in %s\n", modname1);
exit (1);
}
result |= fp1 ();
h2 = dlopen (modname2, RTLD_LAZY);
if (h2 == NULL)
{
printf ("cannot open '%s': %s\n", modname2, dlerror ());
exit (1);
}
/* Dirty test code here: we peek into a private data structure.
We make sure that the module gets assigned the same ID every
time. The value of the first round is used. */
if (((struct link_map *) h1)->l_tls_modid != modid2)
{
printf ("round %d: modid now %zd, initially %d\n",
i, ((struct link_map *) h1)->l_tls_modid, modid2);
result = 1;
}
bazp = dlsym (h2, "baz");
if (bazp == NULL)
{
printf ("cannot get symbol 'baz' in %s\n", modname2);
exit (1);
}
*bazp = 62 + i;
fp2 = dlsym (h2, "in_dso");
if (fp2 == NULL)
{
printf ("cannot get symbol 'in_dso' in %s\n", modname2);
exit (1);
}
result |= fp2 (62 + i, bazp);
/* This time the dlclose calls are in reverse order. */
dlclose (h2);
dlclose (h1);
}
return result;
#else
return 0;
#endif
}
#include "../test-skeleton.c"