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 = { |