* elf/dl-load.c (_dl_init_paths): Don't use strdupa in function
[kopensolaris-gnu/glibc.git] / elf / dl-fini.c
index 61dedd5..4ed3975 100644 (file)
@@ -17,6 +17,7 @@
    write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
    Boston, MA 02111-1307, USA.  */
 
+#include <alloca.h>
 #include <assert.h>
 #include <string.h>
 #include <ldsodefs.h>
@@ -41,23 +42,28 @@ _dl_fini (void)
      using `dlopen' there are possibly several other modules with its
      dependencies to be taken into account.  Therefore we have to start
      determining the order of the modules once again from the beginning.  */
-  unsigned int nloaded = 0;
   unsigned int i;
   struct link_map *l;
   struct link_map **maps;
 
-  /* First count how many objects are there.  */
-  for (l = _dl_loaded; l != NULL; l = l->l_next)
-    ++nloaded;
-
   /* XXX Could it be (in static binaries) that there is no object loaded?  */
-  assert (nloaded > 0);
+  assert (_dl_nloaded > 0);
 
   /* Now we can allocate an array to hold all the pointers and copy
      the pointers in.  */
-  maps = (struct link_map **) alloca (nloaded * sizeof (struct link_map *));
-  for (l = _dl_loaded, nloaded = 0; l != NULL; l = l->l_next)
-    maps[nloaded++] = l;
+  maps = (struct link_map **) alloca (_dl_nloaded
+                                     * sizeof (struct link_map *));
+  for (l = _dl_loaded, i = 0; l != NULL; l = l->l_next)
+    {
+      assert (i < _dl_nloaded);
+
+      maps[i++] = l;
+
+      /* Bump l_opencount of all objects so that they are not dlclose()ed
+        from underneath us.  */
+      ++l->l_opencount;
+    }
+  assert (i == _dl_nloaded);
 
   /* Now we have to do the sorting.  */
   for (l = _dl_loaded->l_next; l != NULL; l = l->l_next)
@@ -71,7 +77,7 @@ _dl_fini (void)
 
       /* Find all object for which the current one is a dependency and
         move the found object (if necessary) in front.  */
-      for (k = j + 1; k < nloaded; ++k)
+      for (k = j + 1; k < _dl_nloaded; ++k)
        {
          struct link_map **runp;
 
@@ -87,19 +93,42 @@ _dl_fini (void)
                    memmove (&maps[j] + 1,
                             &maps[j],
                             (k - j) * sizeof (struct link_map *));
-                   maps[j] = here;
+                   maps[j++] = here;
 
                    break;
                  }
                else
                  ++runp;
            }
+
+         if (__builtin_expect (maps[k]->l_reldeps != NULL, 0))
+           {
+             unsigned int m = maps[k]->l_reldepsact;
+             struct link_map **relmaps = maps[k]->l_reldeps;
+
+             while (m-- > 0)
+               {
+                 if (relmaps[m] == l)
+                   {
+                     struct link_map *here = maps[k];
+
+                     /* Move it now.  */
+                     memmove (&maps[j] + 1,
+                              &maps[j],
+                              (k - j) * sizeof (struct link_map *));
+                     maps[j] = here;
+
+                     break;
+                   }
+
+               }
+           }
        }
     }
 
   /* `maps' now contains the objects in the right order.  Now call the
-     destructors.  We have the process this array from the front.  */
-  for (i = 0; i < nloaded; ++i)
+     destructors.  We have to process this array from the front.  */
+  for (i = 0; i < _dl_nloaded; ++i)
     {
       l = maps[i];
 
@@ -117,7 +146,7 @@ _dl_fini (void)
            continue;
 
          /* When debugging print a message first.  */
-         if (_dl_debug_impcalls)
+         if (__builtin_expect (_dl_debug_impcalls, 0))
            _dl_debug_message (1, "\ncalling fini: ",
                               l->l_name[0] ? l->l_name : _dl_argv[0],
                               "\n\n", NULL);
@@ -138,7 +167,7 @@ _dl_fini (void)
 
          /* Next try the old-style destructor.  */
          if (l->l_info[DT_FINI] != NULL)
-           ((fini_t) (l->l_addr + l->l_info[DT_FINI]->d_un.d_ptr)) ();
+           ((fini_t) DL_DT_FINI_ADDRESS (l, l->l_addr + l->l_info[DT_FINI]->d_un.d_ptr)) ();
        }
     }
 }