/[mldonkey]/mldonkey/src/utils/net/basicSocket.ml
ViewVC logotype

Diff of /mldonkey/src/utils/net/basicSocket.ml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.19 by spiralvoice, Sun Aug 28 10:49:49 2005 UTC revision 1.20 by spiralvoice, Mon Sep 19 10:09:06 2005 UTC
# Line 629  let current_time () = !current_time Line 629  let current_time () = !current_time
629    
630  let _ =  let _ =
631    Heap.add_memstat "BasicSocket" (fun level buf ->    Heap.add_memstat "BasicSocket" (fun level buf ->
632          Printf.bprintf buf "  before_select_hooks: %d\n" (List.length !before_select_hooks);
633          Printf.bprintf buf "  after_select_hooks: %d\n" (List.length !after_select_hooks);
634          Printf.bprintf buf "  bandwidth_second_timers: %d\n" (List.length !bandwidth_second_timers);
635        Printf.bprintf buf "  %d timers\n" (List.length !timers);        Printf.bprintf buf "  %d timers\n" (List.length !timers);
636        Printf.bprintf buf "  %d fd_tasks:\n" (List.length !fd_tasks);        Printf.bprintf buf "  %d fd_tasks:\n" (List.length !fd_tasks);
637        if level > 0 then        if level > 0 then

Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26