[Mldonkey-commits] Changes to mldonkey/src/daemon/common/commonHosts.ml

[mldonkey-commits]

Index: mldonkey/src/daemon/common/commonHosts.ml
diff -u mldonkey/src/daemon/common/commonHosts.ml:1.6 
mldonkey/src/daemon/common/commonHosts.ml:1.7
--- mldonkey/src/daemon/common/commonHosts.ml:1.6       Fri Jul 22 14:32:12 2005
+++ mldonkey/src/daemon/common/commonHosts.ml   Mon Sep 19 10:09:05 2005
@@ -93,6 +93,12 @@
 
     let hosts_by_key = Hashtbl.create 103
 
+    let _ =
+     Heap.add_memstat "CommonHosts" (fun level buf ->
+      Printf.bprintf buf "  hosts_by_key: %d\n" (Hashtbl.length hosts_by_key);
+     )
+
+
     let indexservers_counter = ref 0
     let ultrapeers_counter = ref 0
     let peers_counter = ref 0