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

[mldonkey-commits]

Index: mldonkey/src/daemon/common/commonFile.ml
diff -u mldonkey/src/daemon/common/commonFile.ml:1.41 
mldonkey/src/daemon/common/commonFile.ml:1.42
--- mldonkey/src/daemon/common/commonFile.ml:1.41       Tue Oct 25 09:42:35 2005
+++ mldonkey/src/daemon/common/commonFile.ml    Sun Oct 30 21:08:37 2005
@@ -841,7 +841,13 @@
 let _ =
   Heap.add_memstat "CommonFile" (fun level buf ->
       let counter = ref 0 in
-      H.iter (fun _ -> incr counter) files_by_num;
+      H.iter (fun f -> incr counter;
+       if level > 0 then
+         Printf.bprintf buf "%d sources: %s: %s \n" 
+          (List.length (file_all_sources f)) 
+          (file_network f).network_name
+          (file_best_name f);
+      ) files_by_num;
       Printf.bprintf buf "  files: %d\n" !counter;
       Printf.bprintf buf "  files_ops: %d\n" (List.length !files_ops);
   )