elf/tst-tls-dlinfo.c

   1 #include <dlfcn.h>
   2 #include <stdio.h>
   3 #include <stdlib.h>
   4
   5 #include <tls.h>
   6
   7
   8 #define TEST_FUNCTION do_test ()
   9 static int
  10 do_test (void)
  11 {
  12 #ifdef USE_TLS
  13   static const char modname[] = "tst-tlsmod2.so";
  14   int result = 0;
  15   int *foop;
  16   int (*fp) (int, int *);
  17   void *h;
  18
  19   h = dlopen (modname, RTLD_LAZY);
  20   if (h == NULL)
  21     {
  22       printf ("cannot open '%s': %s\n", modname, dlerror ());
  23       exit (1);
  24     }
  25
  26   fp = dlsym (h, "in_dso");
  27   if (fp == NULL)
  28     {
  29       printf ("cannot get symbol 'in_dso': %s\n", dlerror ());
  30       exit (1);
  31     }
  32
  33   size_t modid = -1;
  34   if (dlinfo (h, RTLD_DI_TLS_MODID, &modid))
  35     {
  36       printf ("dlinfo RTLD_DI_TLS_MODID failed: %s\n", dlerror ());
  37       result = 1;
  38     }
  39   else
  40     printf ("dlinfo says TLS module ID %Zu\n", modid);
  41
  42   void *block;
  43   if (dlinfo (h, RTLD_DI_TLS_DATA, &block))
  44     {
  45       printf ("dlinfo RTLD_DI_TLS_DATA failed: %s\n", dlerror ());
  46       result = 1;
  47     }
  48   else if (block != NULL)
  49     {
  50       printf ("dlinfo RTLD_DI_TLS_DATA says %p but should be unallocated\n",
  51               block);
  52       result = 1;
  53     }
  54
  55   result |= fp (0, NULL);
  56
  57   foop = dlsym (h, "foo");
  58   if (foop == NULL)
  59     {
  60       printf ("cannot get symbol 'foo' the second time: %s\n", dlerror ());
  61       exit (1);
  62     }
  63   if (*foop != 16)
  64     {
  65       puts ("foo != 16");
  66       result = 1;
  67     }
  68
  69   /* Now the module's TLS block has been used and should appear.  */
  70   if (dlinfo (h, RTLD_DI_TLS_DATA, &block))
  71     {
  72       printf ("dlinfo RTLD_DI_TLS_DATA failed the second time: %s\n",
  73               dlerror ());
  74       result = 1;
  75     }
  76   else if (block != foop)
  77     {
  78       printf ("dlinfo RTLD_DI_TLS_DATA says %p but should be %p\n",
  79               block, foop);
  80       result = 1;
  81     }
  82
  83   dlclose (h);
  84
  85   return result;
  86 #else
  87   return 0;
  88 #endif
  89 }
  90
  91
  92 #include "../test-skeleton.c"