[Mldonkey-commits] Changes to mldonkey/src/utils/net/ip_set.ml

[mldonkey-commits]

Index: mldonkey/src/utils/net/ip_set.ml
diff -u mldonkey/src/utils/net/ip_set.ml:1.16 
mldonkey/src/utils/net/ip_set.ml:1.17
--- mldonkey/src/utils/net/ip_set.ml:1.16       Tue Sep  6 11:27:43 2005
+++ mldonkey/src/utils/net/ip_set.ml    Mon Sep 19 10:09:06 2005
@@ -374,3 +374,11 @@
   latency1 10 check_ips ips;
   exit 0
 *)
+let _ =
+  Heap.add_memstat "Ip_set" (fun level buf ->
+      let counter = ref 0 in
+      H.iter (fun _ -> incr counter) descriptions;
+      Printf.bprintf buf "  descriptions: %d\n" !counter;
+      Printf.bprintf buf "  ranges: %d\n" (bl_length !bl);  
+  )
+