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

[mldonkey-commits]

Index: mldonkey/src/utils/net/udpSocket.ml
diff -u mldonkey/src/utils/net/udpSocket.ml:1.15 
mldonkey/src/utils/net/udpSocket.ml:1.16
--- mldonkey/src/utils/net/udpSocket.ml:1.15    Thu Jul  7 00:25:46 2005
+++ mldonkey/src/utils/net/udpSocket.ml Thu Jul  7 17:22:43 2005
@@ -532,6 +532,12 @@
   Buffer.contents b
       
 let _ =
+  Heap.add_memstat "udpSocket" (fun level buf ->
+      Printf.bprintf buf "  %d latencies\n" (Hashtbl.length latencies);
+      Printf.bprintf buf "  %d entries in pings_fifo\n" (Fifo.length 
pings_fifo);
+      Printf.bprintf buf "  %d entries in pings_hashtbl\n" (Hashtbl.length 
pings_hashtbl);
+  );
+
   add_infinite_timer 5. (fun _ ->
       try
         while true do