Update.

	* elf/Versions [ld] (GLIBC_2.2): Export _dl_debug_files.
	* elf/dl-close.c (_dl_close): Print debug message if object is not
	unloaded.
	* elf/dl-open.c (dl_open_worked): Print message about opencount before
	returning to caller.

diff --git a/ChangeLog b/ChangeLog
index d251b311f96c4564c78bd8ab7ed8b8cd793350cb..7b4c594f302285e4d72f1e795b8c154d5de8812e 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,11 @@
 2000-08-28  Ulrich Drepper  <drepper@redhat.com>
 
+       * elf/Versions [ld] (GLIBC_2.2): Export _dl_debug_files.
+       * elf/dl-close.c (_dl_close): Print debug message if object is not
+       unloaded.
+       * elf/dl-open.c (dl_open_worked): Print message about opencount before
+       returning to caller.
+
        * po/zh.po: Renamed to...
        * po/zh_TW.po: ...this.
 

diff --git a/elf/Versions b/elf/Versions
index 776934a39a592244c2b5c82efb602a95a38e7e87..09f3d2513d141aa04be29d827e8b4f0911d3ffc7 100644 (file)
--- a/elf/Versions
+++ b/elf/Versions
@@ -52,6 +52,8 @@ ld {
     _dl_dst_count; _dl_dst_substitute;
   }
   GLIBC_2.2 {
+    _dl_debug_files;
+
     _dl_init; _dl_load_lock; _dl_argv; _dl_nloaded; _dl_check_map_versions;
 
     # this is defined in ld.so and overridden by libc

diff --git a/elf/dl-close.c b/elf/dl-close.c
index 58a84b5bfcf07ed0e708534f82a803e4e3fed30d..70fcb1b7193fc9cc89280b30ffb0d74134008f4a 100644 (file)
--- a/elf/dl-close.c
+++ b/elf/dl-close.c
@@ -27,6 +27,8 @@
 #include <sys/types.h>
 #include <sys/mman.h>
 
+#include <stdio-common/_itoa.h>
+
 
 /* Type of the constructor functions.  */
 typedef void (*fini_t) (void);
@@ -63,6 +65,19 @@ _dl_close (void *_map)
   if (map->l_opencount > 1 || map->l_type != lt_loaded)
     {
       /* There are still references to this object.  Do nothing more.  */
+      if (__builtin_expect (_dl_debug_files, 0))
+       {
+         char buf[20];
+
+         buf[sizeof buf - 1] = '\0';
+
+         _dl_debug_message (1, "\nclosing file=", map->l_name,
+                            "; opencount == ",
+                            _itoa_word (map->l_opencount,
+                                        buf + sizeof buf - 1, 10, 0),
+                            "\n", NULL);
+       }
+
       --map->l_opencount;
       __libc_lock_unlock (_dl_load_lock);
       return;

diff --git a/elf/dl-open.c b/elf/dl-open.c
index b07ede15fc60906aae85b310580ad22c207fc65e..a128b343d29955932f7b4454a442aabaadce1bae 100644 (file)
--- a/elf/dl-open.c
+++ b/elf/dl-open.c
@@ -31,6 +31,7 @@
 #include <bp-sym.h>
 
 #include <dl-dst.h>
+#include <stdio-common/_itoa.h>
 
 
 extern ElfW(Addr) _dl_sysdep_start (void **start_argptr,
@@ -157,8 +158,23 @@ dl_open_worker (void *a)
     }
 
   if (new->l_searchlist.r_list)
-    /* It was already open.  */
-    return;
+    {
+      /* Let the user know about the opencount.  */
+      if (__builtin_expect (_dl_debug_files, 0))
+       {
+         char buf[20];
+
+         buf[sizeof buf - 1] = '\0';
+
+         _dl_debug_message (1, "\nopening file=", new->l_name,
+                            "; opencount == ",
+                            _itoa_word (new->l_opencount,
+                                        buf + sizeof buf - 1, 10, 0),
+                            "\n", NULL);
+       }
+      /* It was already open.  */
+      return;
+    }
 
   /* Load that object's dependencies.  */
   _dl_map_object_deps (new, NULL, 0, 0);
@@ -301,6 +317,20 @@ dl_open_worker (void *a)
     /* We must be the static _dl_open in libc.a.  A static program that
        has loaded a dynamic object now has competition.  */
     __libc_multiple_libcs = 1;
+
+  /* Let the user know about the opencount.  */
+  if (__builtin_expect (_dl_debug_files, 0))
+    {
+      char buf[20];
+
+      buf[sizeof buf - 1] = '\0';
+
+      _dl_debug_message (1, "\nopening file=", new->l_name,
+                        "; opencount == ",
+                        _itoa_word (new->l_opencount,
+                                    buf + sizeof buf - 1, 10, 0),
+                        "\n", NULL);
+    }
 }