260 |
|
|
261 |
(* We check for names every 1/10 second. Too long ? *) |
(* We check for names every 1/10 second. Too long ? *) |
262 |
let _ = |
let _ = |
263 |
Heap.add_memstat "IP" (fun level buf -> |
Heap.add_memstat "Ip" (fun level buf -> |
264 |
Printf.bprintf buf " %d IPs in ip_cache\n" (Hashtbl.length ip_cache); |
Printf.bprintf buf " %d IPs in ip_cache\n" (Hashtbl.length ip_cache); |
265 |
Printf.bprintf buf " %d entries in hostname_table\n" (Hashtbl.length hostname_table); |
Printf.bprintf buf " %d entries in hostname_table\n" (Hashtbl.length hostname_table); |
266 |
Printf.bprintf buf " %d entries in ip_fifo\n" (Fifo.length ip_fifo); |
Printf.bprintf buf " %d entries in ip_fifo\n" (Fifo.length ip_fifo); |