|
Packit |
6c4009 |
#include <assert.h>
|
|
Packit |
6c4009 |
#include <dlfcn.h>
|
|
Packit |
6c4009 |
#include <errno.h>
|
|
Packit |
6c4009 |
#include <error.h>
|
|
Packit |
6c4009 |
#include <mcheck.h>
|
|
Packit |
6c4009 |
#include <stdio.h>
|
|
Packit |
6c4009 |
#include <stdlib.h>
|
|
Packit |
6c4009 |
#include <string.h>
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
/* How many load/unload operations do we do. */
|
|
Packit |
6c4009 |
#define TEST_ROUNDS 1000
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
static struct
|
|
Packit |
6c4009 |
{
|
|
Packit |
6c4009 |
/* Name of the module. */
|
|
Packit |
6c4009 |
const char *name;
|
|
Packit |
6c4009 |
/* The handle. */
|
|
Packit |
6c4009 |
void *handle;
|
|
Packit |
6c4009 |
} testobjs[] =
|
|
Packit |
6c4009 |
{
|
|
Packit |
6c4009 |
{ "testobj1.so", NULL },
|
|
Packit |
6c4009 |
{ "testobj2.so", NULL },
|
|
Packit |
6c4009 |
{ "testobj3.so", NULL },
|
|
Packit |
6c4009 |
{ "testobj4.so", NULL },
|
|
Packit |
6c4009 |
{ "testobj5.so", NULL },
|
|
Packit |
6c4009 |
{ "testobj6.so", NULL },
|
|
Packit |
6c4009 |
};
|
|
Packit |
6c4009 |
#define NOBJS (sizeof (testobjs) / sizeof (testobjs[0]))
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
static const struct
|
|
Packit |
6c4009 |
{
|
|
Packit |
6c4009 |
/* Name of a function to call. */
|
|
Packit |
6c4009 |
const char *fname;
|
|
Packit |
6c4009 |
/* Index in status and handle array. */
|
|
Packit |
6c4009 |
int index;
|
|
Packit |
6c4009 |
/* Options while loading the module. */
|
|
Packit |
6c4009 |
int options;
|
|
Packit |
6c4009 |
} tests[] =
|
|
Packit |
6c4009 |
{
|
|
Packit |
6c4009 |
{ "obj1func2", 0, RTLD_LAZY },
|
|
Packit |
6c4009 |
{ "obj1func1", 0, RTLD_LAZY | RTLD_GLOBAL },
|
|
Packit |
6c4009 |
{ "obj1func1", 0, RTLD_NOW, },
|
|
Packit |
6c4009 |
{ "obj1func2", 0, RTLD_NOW | RTLD_GLOBAL },
|
|
Packit |
6c4009 |
{ "obj2func2", 1, RTLD_LAZY },
|
|
Packit |
6c4009 |
{ "obj2func1", 1, RTLD_LAZY | RTLD_GLOBAL, },
|
|
Packit |
6c4009 |
{ "obj2func1", 1, RTLD_NOW, },
|
|
Packit |
6c4009 |
{ "obj2func2", 1, RTLD_NOW | RTLD_GLOBAL },
|
|
Packit |
6c4009 |
{ "obj3func2", 2, RTLD_LAZY },
|
|
Packit |
6c4009 |
{ "obj3func1", 2, RTLD_LAZY | RTLD_GLOBAL },
|
|
Packit |
6c4009 |
{ "obj3func1", 2, RTLD_NOW },
|
|
Packit |
6c4009 |
{ "obj3func2", 2, RTLD_NOW | RTLD_GLOBAL },
|
|
Packit |
6c4009 |
{ "obj4func2", 3, RTLD_LAZY },
|
|
Packit |
6c4009 |
{ "obj4func1", 3, RTLD_LAZY | RTLD_GLOBAL },
|
|
Packit |
6c4009 |
{ "obj4func1", 3, RTLD_NOW },
|
|
Packit |
6c4009 |
{ "obj4func2", 3, RTLD_NOW | RTLD_GLOBAL },
|
|
Packit |
6c4009 |
{ "obj5func2", 4, RTLD_LAZY },
|
|
Packit |
6c4009 |
{ "obj5func1", 4, RTLD_LAZY | RTLD_GLOBAL },
|
|
Packit |
6c4009 |
{ "obj5func1", 4, RTLD_NOW },
|
|
Packit |
6c4009 |
{ "obj5func2", 4, RTLD_NOW | RTLD_GLOBAL },
|
|
Packit |
6c4009 |
{ "obj6func2", 5, RTLD_LAZY },
|
|
Packit |
6c4009 |
{ "obj6func1", 5, RTLD_LAZY | RTLD_GLOBAL },
|
|
Packit |
6c4009 |
{ "obj6func1", 5, RTLD_NOW },
|
|
Packit |
6c4009 |
{ "obj6func2", 5, RTLD_NOW | RTLD_GLOBAL },
|
|
Packit |
6c4009 |
};
|
|
Packit |
6c4009 |
#define NTESTS (sizeof (tests) / sizeof (tests[0]))
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
#include <include/link.h>
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
#define MAPS ((struct link_map *) _r_debug.r_map)
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
#define OUT \
|
|
Packit |
6c4009 |
do \
|
|
Packit |
6c4009 |
{ \
|
|
Packit |
6c4009 |
for (map = MAPS; map != NULL; map = map->l_next) \
|
|
Packit |
6c4009 |
if (map->l_type == lt_loaded) \
|
|
Packit |
6c4009 |
printf ("name = \"%s\", direct_opencount = %d\n", \
|
|
Packit |
6c4009 |
map->l_name, (int) map->l_direct_opencount); \
|
|
Packit |
6c4009 |
fflush (stdout); \
|
|
Packit |
6c4009 |
} \
|
|
Packit |
6c4009 |
while (0)
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
int
|
|
Packit |
6c4009 |
main (int argc, char *argv[])
|
|
Packit |
6c4009 |
{
|
|
Packit |
6c4009 |
int debug = argc > 1 && argv[1][0] != '\0';
|
|
Packit |
6c4009 |
int count = TEST_ROUNDS;
|
|
Packit |
6c4009 |
int result = 0;
|
|
Packit |
6c4009 |
struct link_map *map;
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
mtrace ();
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
/* Just a seed. */
|
|
Packit |
6c4009 |
srandom (TEST_ROUNDS);
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
if (debug)
|
|
Packit |
6c4009 |
{
|
|
Packit |
6c4009 |
puts ("in the beginning");
|
|
Packit |
6c4009 |
OUT;
|
|
Packit |
6c4009 |
}
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
while (count--)
|
|
Packit |
6c4009 |
{
|
|
Packit |
6c4009 |
int nr = random () % NTESTS;
|
|
Packit |
6c4009 |
int index = tests[nr].index;
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
printf ("%4d: %4d: ", count + 1, nr);
|
|
Packit |
6c4009 |
fflush (stdout);
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
if (testobjs[index].handle == NULL)
|
|
Packit |
6c4009 |
{
|
|
Packit |
6c4009 |
int (*fct) (int);
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
/* Load the object. */
|
|
Packit |
6c4009 |
testobjs[index].handle = dlopen (testobjs[index].name,
|
|
Packit |
6c4009 |
tests[nr].options);
|
|
Packit |
6c4009 |
if (testobjs[index].handle == NULL)
|
|
Packit |
6c4009 |
error (EXIT_FAILURE, 0, "cannot load `%s': %s",
|
|
Packit |
6c4009 |
testobjs[index].name, dlerror ());
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
/* Test the function call. */
|
|
Packit |
6c4009 |
fct = dlsym (testobjs[index].handle, tests[nr].fname);
|
|
Packit |
6c4009 |
if (fct == NULL)
|
|
Packit |
6c4009 |
error (EXIT_FAILURE, 0,
|
|
Packit |
6c4009 |
"cannot get function `%s' from shared object `%s': %s",
|
|
Packit |
6c4009 |
tests[nr].fname, testobjs[index].name, dlerror ());
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
fct (10);
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
printf ("successfully loaded `%s', handle %p\n",
|
|
Packit |
6c4009 |
testobjs[index].name, testobjs[index].handle);
|
|
Packit |
6c4009 |
}
|
|
Packit |
6c4009 |
else
|
|
Packit |
6c4009 |
{
|
|
Packit |
6c4009 |
if (dlclose (testobjs[index].handle) != 0)
|
|
Packit |
6c4009 |
{
|
|
Packit |
6c4009 |
printf ("failed to close %s\n", testobjs[index].name);
|
|
Packit |
6c4009 |
result = 1;
|
|
Packit |
6c4009 |
}
|
|
Packit |
6c4009 |
else
|
|
Packit |
6c4009 |
printf ("successfully unloaded `%s', handle %p\n",
|
|
Packit |
6c4009 |
testobjs[index].name, testobjs[index].handle);
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
testobjs[index].handle = NULL;
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
if (testobjs[0].handle == NULL
|
|
Packit |
6c4009 |
&& testobjs[1].handle == NULL
|
|
Packit |
6c4009 |
&& testobjs[5].handle == NULL)
|
|
Packit |
6c4009 |
{
|
|
Packit |
6c4009 |
/* In this case none of the objects above should be
|
|
Packit |
6c4009 |
present. */
|
|
Packit |
6c4009 |
for (map = MAPS; map != NULL; map = map->l_next)
|
|
Packit |
6c4009 |
if (map->l_type == lt_loaded
|
|
Packit |
6c4009 |
&& (strstr (map->l_name, testobjs[0].name) != NULL
|
|
Packit |
6c4009 |
|| strstr (map->l_name, testobjs[1].name) != NULL
|
|
Packit |
6c4009 |
|| strstr (map->l_name, testobjs[5].name) != NULL))
|
|
Packit |
6c4009 |
{
|
|
Packit |
6c4009 |
printf ("`%s' is still loaded\n", map->l_name);
|
|
Packit |
6c4009 |
result = 1;
|
|
Packit |
6c4009 |
}
|
|
Packit |
6c4009 |
}
|
|
Packit |
6c4009 |
}
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
if (debug)
|
|
Packit |
6c4009 |
OUT;
|
|
Packit |
6c4009 |
}
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
/* Unload all loaded modules. */
|
|
Packit |
6c4009 |
for (count = 0; count < (int) NOBJS; ++count)
|
|
Packit |
6c4009 |
if (testobjs[count].handle != NULL)
|
|
Packit |
6c4009 |
{
|
|
Packit |
6c4009 |
printf ("\nclose: %s: l_initfini = %p, l_versions = %p\n",
|
|
Packit |
6c4009 |
testobjs[count].name,
|
|
Packit |
6c4009 |
((struct link_map *) testobjs[count].handle)->l_initfini,
|
|
Packit |
6c4009 |
((struct link_map *) testobjs[count].handle)->l_versions);
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
if (dlclose (testobjs[count].handle) != 0)
|
|
Packit |
6c4009 |
{
|
|
Packit |
6c4009 |
printf ("failed to close %s\n", testobjs[count].name);
|
|
Packit |
6c4009 |
result = 1;
|
|
Packit |
6c4009 |
}
|
|
Packit |
6c4009 |
}
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
/* Check whether all files are unloaded. */
|
|
Packit |
6c4009 |
for (map = MAPS; map != NULL; map = map->l_next)
|
|
Packit |
6c4009 |
if (map->l_type == lt_loaded)
|
|
Packit |
6c4009 |
{
|
|
Packit |
6c4009 |
printf ("name = \"%s\", direct_opencount = %d\n",
|
|
Packit |
6c4009 |
map->l_name, (int) map->l_direct_opencount);
|
|
Packit |
6c4009 |
result = 1;
|
|
Packit |
6c4009 |
}
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
return result;
|
|
Packit |
6c4009 |
}
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
extern int foo (int a);
|
|
Packit |
6c4009 |
int
|
|
Packit |
6c4009 |
foo (int a)
|
|
Packit |
6c4009 |
{
|
|
Packit |
6c4009 |
return a - 1;
|
|
Packit |
6c4009 |
}
|