2000-07-20 22:53:54 +00:00
|
|
|
#include <dlfcn.h>
|
|
|
|
#include <stdio.h>
|
2011-02-26 01:49:48 +00:00
|
|
|
#include <mcheck.h>
|
2000-07-20 22:53:54 +00:00
|
|
|
|
|
|
|
int
|
|
|
|
main (void)
|
|
|
|
{
|
|
|
|
int result = 0;
|
2011-02-26 01:49:48 +00:00
|
|
|
void *p;
|
|
|
|
|
|
|
|
mtrace ();
|
2000-07-20 22:53:54 +00:00
|
|
|
|
|
|
|
/* First try to load an object which is a dependency. This should
|
|
|
|
succeed. */
|
2011-02-26 01:49:48 +00:00
|
|
|
p = dlopen ("testobj1.so", RTLD_LAZY | RTLD_NOLOAD);
|
|
|
|
if (p == NULL)
|
2000-07-20 22:53:54 +00:00
|
|
|
{
|
|
|
|
printf ("cannot open \"testobj1.so\": %s\n", dlerror ());
|
|
|
|
result = 1;
|
|
|
|
}
|
|
|
|
else
|
2011-02-26 01:49:48 +00:00
|
|
|
{
|
|
|
|
puts ("loading \"testobj1.so\" succeeded, OK");
|
|
|
|
dlclose (p);
|
|
|
|
}
|
2000-07-20 22:53:54 +00:00
|
|
|
|
|
|
|
/* Now try loading an object which is not already loaded. */
|
|
|
|
if (dlopen ("testobj5.so", RTLD_LAZY | RTLD_NOLOAD) != NULL)
|
|
|
|
{
|
|
|
|
puts ("succeeded in loading \"testobj5.so\"");
|
|
|
|
result = 1;
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
/* Load the object and run the same test again. */
|
|
|
|
puts ("\"testobj5.so\" wasn't loaded and RTLD_NOLOAD prevented it, OK");
|
|
|
|
|
|
|
|
p = dlopen ("testobj5.so", RTLD_LAZY);
|
|
|
|
|
|
|
|
if (p == NULL)
|
|
|
|
{
|
|
|
|
printf ("cannot open \"testobj5.so\" without RTLD_NOLOAD: %s\n",
|
|
|
|
dlerror ());
|
|
|
|
result = 1;
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
puts ("loading \"testobj5.so\" succeeded, OK");
|
|
|
|
|
2011-02-26 01:49:48 +00:00
|
|
|
void *q = dlopen ("testobj5.so", RTLD_LAZY | RTLD_NOLOAD);
|
|
|
|
if (q == NULL)
|
2000-07-20 22:53:54 +00:00
|
|
|
{
|
|
|
|
printf ("cannot open \"testobj5.so\": %s\n", dlerror ());
|
|
|
|
result = 1;
|
|
|
|
}
|
|
|
|
else
|
2011-02-26 01:49:48 +00:00
|
|
|
{
|
|
|
|
puts ("loading \"testobj5.so\" with RTLD_NOLOAD succeeded, OK");
|
|
|
|
dlclose (q);
|
|
|
|
}
|
2000-07-20 22:53:54 +00:00
|
|
|
|
|
|
|
if (dlclose (p) != 0)
|
|
|
|
{
|
|
|
|
printf ("cannot close \"testobj5.so\": %s\n", dlerror ());
|
|
|
|
result = 1;
|
|
|
|
}
|
|
|
|
else
|
|
|
|
puts ("closing \"testobj5.so\" succeeded, OK");
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
return result;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
2000-11-26 06:18:02 +00:00
|
|
|
extern int foo (int a);
|
2000-07-20 22:53:54 +00:00
|
|
|
int
|
|
|
|
foo (int a)
|
|
|
|
{
|
|
|
|
return 42 + a;
|
|
|
|
}
|