Parent Directory | Revision Log | Patch
revision 1.15 by spiralvoice, Thu Jul 7 00:25:46 2005 UTC | revision 1.16 by spiralvoice, Thu Jul 7 17:22:43 2005 UTC | |
---|---|---|
# | Line 532 let get_latencies verbose = | Line 532 let get_latencies verbose = |
532 | Buffer.contents b | Buffer.contents b |
533 | ||
534 | let _ = | let _ = |
535 | Heap.add_memstat "udpSocket" (fun level buf -> | |
536 | Printf.bprintf buf " %d latencies\n" (Hashtbl.length latencies); | |
537 | Printf.bprintf buf " %d entries in pings_fifo\n" (Fifo.length pings_fifo); | |
538 | Printf.bprintf buf " %d entries in pings_hashtbl\n" (Hashtbl.length pings_hashtbl); | |
539 | ); | |
540 | ||
541 | add_infinite_timer 5. (fun _ -> | add_infinite_timer 5. (fun _ -> |
542 | try | try |
543 | while true do | while true do |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |