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

[mldonkey-commits]

Index: mldonkey/src/utils/net/tcpClientSocket.ml
diff -u mldonkey/src/utils/net/tcpClientSocket.ml:1.7 
mldonkey/src/utils/net/tcpClientSocket.ml:1.8
--- mldonkey/src/utils/net/tcpClientSocket.ml:1.7       Tue Sep  6 11:25:00 2005
+++ mldonkey/src/utils/net/tcpClientSocket.ml   Mon Sep 19 10:09:06 2005
@@ -472,6 +472,11 @@
 let read_bandwidth_controlers = ref []
 let write_bandwidth_controlers = ref []
   
+let _ =
+  Heap.add_memstat "tcpClientSocket" (fun level buf ->
+      Printf.bprintf buf "  read_bandwidth_controlers: %d\n" (List.length 
!read_bandwidth_controlers);
+      Printf.bprintf buf "  write_bandwidth_controlers: %d\n" (List.length 
!write_bandwidth_controlers);
+  )
       
 let create_read_bandwidth_controler rate = 
   let bc = {