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.

4 files changed, 55 insertions, 2 deletions

diff --git a/ChangeLog b/ChangeLog
index d251b31..7b4c594 100644
--- 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 776934a..09f3d25 100644
--- 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 58a84b5..70fcb1b 100644
--- 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 b07ede1..a128b34 100644
--- 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);
+    }
 }