1  #include <dlfcn.h>
       2  #include <link.h>
       3  #include <stdio.h>
       4  #include <stdlib.h>
       5  #include <string.h>
       6  #include <gnu/lib-names.h>
       7  #include <first-versions.h>
       8  
       9  static int
      10  do_test (void)
      11  {
      12    void *handle = dlopen ("modstatic2-nonexistent.so", RTLD_LAZY);
      13    if (handle == NULL)
      14      printf ("nonexistent: %s\n", dlerror ());
      15    else
      16      exit (1);
      17  
      18    handle = dlopen ("modstatic2.so", RTLD_LAZY);
      19    if (handle == NULL)
      20      {
      21        printf ("%s\n", dlerror ());
      22        exit (1);
      23      }
      24  
      25    int (*test) (FILE *, int);
      26    test = dlsym (handle, "test");
      27    if (test == NULL)
      28      {
      29        printf ("%s\n", dlerror ());
      30        exit (1);
      31      }
      32  
      33    Dl_info info;
      34    int res = dladdr (test, &info);
      35    if (res == 0)
      36      {
      37        puts ("dladdr returned 0");
      38        exit (1);
      39      }
      40    else
      41      {
      42        if (strstr (info.dli_fname, "modstatic2.so") == NULL
      43  	  || strcmp (info.dli_sname, "test") != 0)
      44  	{
      45  	  printf ("fname %s sname %s\n", info.dli_fname, info.dli_sname);
      46  	  exit (1);
      47  	}
      48        if (info.dli_saddr != (void *) test)
      49  	{
      50  	  printf ("saddr %p != test %p\n", info.dli_saddr, test);
      51  	  exit (1);
      52  	}
      53      }
      54  
      55    ElfW(Sym) *sym;
      56    void *symp;
      57    res = dladdr1 (test, &info, &symp, RTLD_DL_SYMENT);
      58    if (res == 0)
      59      {
      60        puts ("dladdr1 returned 0");
      61        exit (1);
      62      }
      63    else
      64      {
      65        if (strstr (info.dli_fname, "modstatic2.so") == NULL
      66  	  || strcmp (info.dli_sname, "test") != 0)
      67  	{
      68  	  printf ("fname %s sname %s\n", info.dli_fname, info.dli_sname);
      69  	  exit (1);
      70  	}
      71        if (info.dli_saddr != (void *) test)
      72  	{
      73  	  printf ("saddr %p != test %p\n", info.dli_saddr, test);
      74  	  exit (1);
      75  	}
      76        sym = symp;
      77        if (sym == NULL)
      78  	{
      79  	  puts ("sym == NULL\n");
      80  	  exit (1);
      81  	}
      82        if (ELF32_ST_BIND (sym->st_info) != STB_GLOBAL
      83  	  || ELF32_ST_VISIBILITY (sym->st_other) != STV_DEFAULT)
      84  	{
      85  	  printf ("bind %d visibility %d\n",
      86  		  (int) ELF32_ST_BIND (sym->st_info),
      87  		  (int) ELF32_ST_VISIBILITY (sym->st_other));
      88  	  exit (1);
      89  	}
      90      }
      91  
      92    Lmid_t lmid;
      93    res = dlinfo (handle, RTLD_DI_LMID, &lmid);
      94    if (res != 0)
      95      {
      96        printf ("dlinfo returned %d %s\n", res, dlerror ());
      97        exit (1);
      98      }
      99    else if (lmid != LM_ID_BASE)
     100      {
     101        printf ("lmid %d != %d\n", (int) lmid, (int) LM_ID_BASE);
     102        exit (1);
     103      }
     104  
     105    res = test (stdout, 2);
     106    if (res != 4)
     107      {
     108        printf ("Got %i, expected 4\n", res);
     109        exit (1);
     110      }
     111  
     112    void *handle2 = dlopen (LIBDL_SO, RTLD_LAZY);
     113    if (handle2 == NULL)
     114      {
     115        printf ("libdl.so: %s\n", dlerror ());
     116        exit (1);
     117      }
     118  
     119    /* _exit is very unlikely to receive a second symbol version.  */
     120    void *exit_ptr = dlvsym (handle2, "_exit", FIRST_VERSION_libc__exit_STRING);
     121    if (exit_ptr == NULL)
     122      {
     123        printf ("dlvsym: %s\n", dlerror ());
     124        exit (1);
     125      }
     126    if (exit_ptr != dlsym (handle2, "_exit"))
     127      {
     128        printf ("dlvsym for _exit does not match dlsym\n");
     129        exit (1);
     130      }
     131  
     132    void *(*dlsymfn) (void *, const char *);
     133    dlsymfn = dlsym (handle2, "dlsym");
     134    if (dlsymfn == NULL)
     135      {
     136        printf ("dlsym \"dlsym\": %s\n", dlerror ());
     137        exit (1);
     138      }
     139    void *test2 = dlsymfn (handle, "test");
     140    if (test2 == NULL)
     141      {
     142        printf ("%s\n", dlerror ());
     143        exit (1);
     144      }
     145    else if (test2 != (void *) test)
     146      {
     147        printf ("test %p != test2 %p\n", test, test2);
     148        exit (1);
     149      }
     150  
     151    dlclose (handle2);
     152    dlclose (handle);
     153  
     154    handle = dlmopen (LM_ID_BASE, "modstatic2.so", RTLD_LAZY);
     155    if (handle == NULL)
     156      {
     157        printf ("%s\n", dlerror ());
     158        exit (1);
     159      }
     160    dlclose (handle);
     161  
     162    handle = dlmopen (LM_ID_NEWLM, "modstatic2.so", RTLD_LAZY);
     163    if (handle == NULL)
     164      printf ("LM_ID_NEWLM: %s\n", dlerror ());
     165    else
     166      {
     167        puts ("LM_ID_NEWLM unexpectedly succeeded");
     168        exit (1);
     169      }
     170  
     171    return 0;
     172  }
     173  
     174  #define TEST_FUNCTION do_test ()
     175  #include "../test-skeleton.c"