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 |