962 |
|
|
963 |
let _ = |
let _ = |
964 |
Heap.add_memstat "DonkeyGlobals" (fun level buf -> |
Heap.add_memstat "DonkeyGlobals" (fun level buf -> |
965 |
|
Printf.bprintf buf "Number of old files: %d\n" (List.length !!old_files); |
966 |
Printf.bprintf buf "Current files: %d\n" (List.length !current_files); |
Printf.bprintf buf "Current files: %d\n" (List.length !current_files); |
967 |
let list = H.to_list clients_by_kind in |
let list = H.to_list clients_by_kind in |
968 |
Printf.bprintf buf "Clients_by_kind: %d\n" (List.length list); |
Printf.bprintf buf "Clients_by_kind: %d\n" (List.length list); |