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

[mldonkey-commits]

Index: mldonkey/src/utils/net/tcpBufferedSocket.ml
diff -u mldonkey/src/utils/net/tcpBufferedSocket.ml:1.25 
mldonkey/src/utils/net/tcpBufferedSocket.ml:1.26
--- mldonkey/src/utils/net/tcpBufferedSocket.ml:1.25    Tue Jun 28 22:45:57 2005
+++ mldonkey/src/utils/net/tcpBufferedSocket.ml Thu Jul  7 17:22:43 2005
@@ -1841,7 +1841,10 @@
     
   
 let _ =
+  Heap.add_memstat "tcpBufferedSocket" (fun level buf ->
+      Printf.bprintf buf "  %d latencies\n" (Hashtbl.length latencies);
+      Printf.bprintf buf "  %d entries in net_stats\n" (Hashtbl.length 
net_stats);
+  );
   add_infinite_timer 1.0 proc_net_timer 
-  
-  
+
 let packet_frame_size = ref 250