/* Test for unloading (really unmapping) of objects.  By Franz Sirl.

   This test does not have to passed in all dlopen() et.al. implementation

   since it is not required the unloading actually happens.  But we

   require it for glibc.  */

#include <dlfcn.h>

#include <link.h>

#include <mcheck.h>

#include <stdio.h>

#include <stdlib.h>

#define MAPS ((struct link_map *) _r_debug.r_map)

#define OUT \

  for (map = MAPS; map != NULL; map = map->l_next)			      \

    if (map->l_type == lt_loaded)					      \

      printf ("name = \"%s\", direct_opencount = %d\n",			      \

	      map->l_name, (int) map->l_direct_opencount);		      \

  fflush (stdout)

typedef struct

{

  void *next;

} strct;

int

main (void)

{

   void *sohandle;

   strct *testdat;

   int ret;

   int result = 0;

   struct link_map *map;

   mtrace ();

   puts ("\nBefore");

   OUT;

   sohandle = dlopen ("unloadmod.so", RTLD_NOW | RTLD_GLOBAL);

   if (sohandle == NULL)

     {

       printf ("*** first dlopen failed: %s\n", dlerror ());

       exit (1);

     }

   puts ("\nAfter loading unloadmod.so");

   OUT;

   testdat = dlsym (sohandle, "testdat");

   testdat->next = (void *) -1;

   ret = dlclose (sohandle);

   if (ret != 0)

     {

       puts ("*** first dlclose failed");

       result = 1;

     }

   puts ("\nAfter closing unloadmod.so");

   OUT;

   sohandle = dlopen ("unloadmod.so", RTLD_NOW | RTLD_GLOBAL);

   if (sohandle == NULL)

     {

       printf ("*** second dlopen failed: %s\n", dlerror ());

       exit (1);

     }

   puts ("\nAfter loading unloadmod.so the second time");

   OUT;

   testdat = dlsym (sohandle, "testdat");

   if (testdat->next == (void *) -1)

     {

       puts ("*** testdat->next == (void *) -1");

       result = 1;

     }

   ret = dlclose (sohandle);

   if (ret != 0)

     {

       puts ("*** second dlclose failed");

       result = 1;

     }

   puts ("\nAfter closing unloadmod.so again");

   OUT;

   return result;

}