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

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

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

revision 1.7 by spiralvoice, Tue Sep 6 11:25:00 2005 UTC revision 1.8 by spiralvoice, Mon Sep 19 10:09:06 2005 UTC
# Line 472  let tcp_handler t sock event = Line 472  let tcp_handler t sock event =
472  let read_bandwidth_controlers = ref []  let read_bandwidth_controlers = ref []
473  let write_bandwidth_controlers = ref []  let write_bandwidth_controlers = ref []
474        
475    let _ =
476      Heap.add_memstat "tcpClientSocket" (fun level buf ->
477          Printf.bprintf buf "  read_bandwidth_controlers: %d\n" (List.length !read_bandwidth_controlers);
478          Printf.bprintf buf "  write_bandwidth_controlers: %d\n" (List.length !write_bandwidth_controlers);
479      )
480                
481  let create_read_bandwidth_controler rate =  let create_read_bandwidth_controler rate =
482    let bc = {    let bc = {

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

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