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

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

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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

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

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