/[mldonkey]/mldonkey/src/daemon/common/commonSources.ml
ViewVC logotype

Diff of /mldonkey/src/daemon/common/commonSources.ml

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

revision 1.23 by spiralvoice, Fri Aug 26 21:10:43 2005 UTC revision 1.24 by spiralvoice, Mon Sep 19 10:09:05 2005 UTC
# Line 2155  connected if needed *) Line 2155  connected if needed *)
2155              let nsources = ref 0 in              let nsources = ref 0 in
2156              HS.iter (fun _ -> incr nsources) sources_by_uid;              HS.iter (fun _ -> incr nsources) sources_by_uid;
2157              Printf.bprintf buf "Sources by UID table: %d entries\n" !nsources;              Printf.bprintf buf "Sources by UID table: %d entries\n" !nsources;
2158                
2159                nsources := 0;
2160                H.iter (fun _ -> incr nsources) sources_by_num;
2161                Printf.bprintf buf "Sources by NUM table: %d entries\n" !nsources;
2162    
2163              let nconnected = ref 0 in              let nconnected = ref 0 in
2164              Fifo.iter (fun (_,s) ->              Fifo.iter (fun (_,s) ->

Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24

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