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

[mldonkey-commits]

Index: mldonkey/src/daemon/common/commonNetwork.ml
diff -u mldonkey/src/daemon/common/commonNetwork.ml:1.21 
mldonkey/src/daemon/common/commonNetwork.ml:1.22
--- mldonkey/src/daemon/common/commonNetwork.ml:1.21    Tue Sep  6 11:29:10 2005
+++ mldonkey/src/daemon/common/commonNetwork.ml Mon Sep 19 10:09:05 2005
@@ -196,6 +196,13 @@
 let network_commands = ref ([] : (string * string * CommonTypes.arg_kind * 
string) list)
 
 let commands_by_kind = Hashtbl.create 11
+
+let _ =
+     Heap.add_memstat "CommonNetwork" (fun level buf ->
+      Printf.bprintf buf "  networks_by_name: %d\n" (Hashtbl.length 
networks_by_name);
+      Printf.bprintf buf "  networks_by_num: %d\n" (Hashtbl.length 
networks_by_num);
+      Printf.bprintf buf "  commands_by_kind: %d\n" (Hashtbl.length 
commands_by_kind);
+     )
   
 let register_commands list = 
   List.iter (fun (s, n, f, h) ->