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

[mldonkey-commits]

Index: mldonkey/src/utils/net/basicSocket.ml
diff -u mldonkey/src/utils/net/basicSocket.ml:1.19 
mldonkey/src/utils/net/basicSocket.ml:1.20
--- mldonkey/src/utils/net/basicSocket.ml:1.19  Sun Aug 28 10:49:49 2005
+++ mldonkey/src/utils/net/basicSocket.ml       Mon Sep 19 10:09:06 2005
@@ -629,6 +629,9 @@
 
 let _ =
   Heap.add_memstat "BasicSocket" (fun level buf ->
+      Printf.bprintf buf "  before_select_hooks: %d\n" (List.length 
!before_select_hooks);
+      Printf.bprintf buf "  after_select_hooks: %d\n" (List.length 
!after_select_hooks);
+      Printf.bprintf buf "  bandwidth_second_timers: %d\n" (List.length 
!bandwidth_second_timers);
       Printf.bprintf buf "  %d timers\n" (List.length !timers);
       Printf.bprintf buf "  %d fd_tasks:\n" (List.length !fd_tasks);
       if level > 0 then