Blame elf/restest1.c

Packit 6c4009
#include <dlfcn.h>
Packit 6c4009
#include <error.h>
Packit 6c4009
#include <mcheck.h>
Packit 6c4009
#include <stdio.h>
Packit 6c4009
#include <stdlib.h>
Packit 6c4009
Packit 6c4009
int
Packit 6c4009
main (void)
Packit 6c4009
{
Packit 6c4009
  void *h1;
Packit 6c4009
  int (*fp1) (int);
Packit 6c4009
  void *h2;
Packit 6c4009
  int (*fp2) (int);
Packit 6c4009
  int res1;
Packit 6c4009
  int res2;
Packit 6c4009
Packit 6c4009
  mtrace ();
Packit 6c4009
Packit 6c4009
  h1 = dlopen ("testobj1.so", RTLD_LAZY);
Packit 6c4009
  if (h1 == NULL)
Packit 6c4009
    error (EXIT_FAILURE, 0, "while loading `%s': %s", "testobj1.so",
Packit 6c4009
	   dlerror ());
Packit 6c4009
Packit 6c4009
  h2 = dlopen ("testobj1_1.so", RTLD_LAZY);
Packit 6c4009
  if (h1 == NULL)
Packit 6c4009
    error (EXIT_FAILURE, 0, "while loading `%s': %s", "testobj1_1.so",
Packit 6c4009
	   dlerror ());
Packit 6c4009
Packit 6c4009
  fp1 = dlsym (h1, "obj1func1");
Packit 6c4009
  if (fp1 == NULL)
Packit 6c4009
    error (EXIT_FAILURE, 0, "getting `obj1func1' in `%s': %s",
Packit 6c4009
	   "testobj1.so", dlerror ());
Packit 6c4009
Packit 6c4009
  fp2 = dlsym (h2, "obj1func1");
Packit 6c4009
  if (fp2 == NULL)
Packit 6c4009
    error (EXIT_FAILURE, 0, "getting `obj1func1' in `%s': %s",
Packit 6c4009
	   "testobj1_1.so", dlerror ());
Packit 6c4009
Packit 6c4009
  res1 = fp1 (10);
Packit 6c4009
  res2 = fp2 (10);
Packit 6c4009
  printf ("fp1(10) = %d\nfp2(10) = %d\n", res1, res2);
Packit 6c4009
Packit 6c4009
  if (dlclose (h1) != 0)
Packit 6c4009
    error (EXIT_FAILURE, 0, "cannot close testobj1.so: %s\n", dlerror ());
Packit 6c4009
  if (dlclose (h2) != 0)
Packit 6c4009
    error (EXIT_FAILURE, 0, "cannot close testobj1_1.so: %s\n", dlerror ());
Packit 6c4009
Packit 6c4009
  return res1 != 42 || res2 != 72;
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 + 10;
Packit 6c4009
}