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

[mldonkey-commits]

Index: mldonkey/src/daemon/common/commonUploads.ml
diff -u mldonkey/src/daemon/common/commonUploads.ml:1.31 
mldonkey/src/daemon/common/commonUploads.ml:1.32
--- mldonkey/src/daemon/common/commonUploads.ml:1.31    Fri Aug 26 21:21:20 2005
+++ mldonkey/src/daemon/common/commonUploads.ml Mon Sep 19 10:09:05 2005
@@ -265,6 +265,15 @@
 let shared_counter = ref (Int64.zero)
 let shared_files = Hashtbl.create 13
 
+let _ =
+  Heap.add_memstat "CommonUploads" (fun level buf ->
+   Printf.bprintf buf "  infos_by_name: %d\n" (Hashtbl.length infos_by_name);
+   Printf.bprintf buf "  shareds_by_uid: %d\n" (Hashtbl.length shareds_by_uid);
+   Printf.bprintf buf "  shareds_by_id: %d\n" (Hashtbl.length shareds_by_id);
+   Printf.bprintf buf "  shared_files: %d\n" (Hashtbl.length shared_files);
+  )
+
+
 let new_shared_dir dirname = {
     shared_dirname = dirname;
     shared_files = [];