Blame elf/reldepmod4.c

Packit Service 82fcde
#include <dlfcn.h>
Packit Service 82fcde
#include <stdio.h>
Packit Service 82fcde
#include <stdlib.h>
Packit Service 82fcde
Packit Service 82fcde
extern int call_me (void);
Packit Service 82fcde
Packit Service 82fcde
int
Packit Service 82fcde
call_me (void)
Packit Service 82fcde
{
Packit Service 82fcde
  void *h;
Packit Service 82fcde
  int (*fp) (void);
Packit Service 82fcde
  int res;
Packit Service 82fcde
Packit Service 82fcde
  h = dlopen ("reldepmod1.so", RTLD_LAZY);
Packit Service 82fcde
  if (h == NULL)
Packit Service 82fcde
    {
Packit Service 82fcde
      printf ("cannot open reldepmod1.so in %s: %s\n", __FILE__, dlerror ());
Packit Service 82fcde
      exit (1);
Packit Service 82fcde
    }
Packit Service 82fcde
Packit Service 82fcde
  fp = dlsym (h, "foo");
Packit Service 82fcde
  if (fp == NULL)
Packit Service 82fcde
    {
Packit Service 82fcde
      printf ("cannot get address of foo in global scope: %s\n", dlerror ());
Packit Service 82fcde
      exit (1);
Packit Service 82fcde
    }
Packit Service 82fcde
Packit Service 82fcde
  res = fp () - 42;
Packit Service 82fcde
Packit Service 82fcde
  if (dlclose (h) != 0)
Packit Service 82fcde
    {
Packit Service 82fcde
      printf ("failure when closing h in %s: %s\n", __FILE__, dlerror ());
Packit Service 82fcde
      exit (1);
Packit Service 82fcde
    }
Packit Service 82fcde
Packit Service 82fcde
  return res;
Packit Service 82fcde
}