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

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

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

revision 1.16 by spiralvoice, Sat Sep 17 17:59:47 2005 UTC revision 1.17 by spiralvoice, Mon Sep 19 10:09:06 2005 UTC
# Line 260  let async_ip name f = Line 260  let async_ip name f =
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);

Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17

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