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

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

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

revision 1.6 by spiralvoice, Fri Jul 22 14:32:12 2005 UTC revision 1.7 by spiralvoice, Mon Sep 19 10:09:05 2005 UTC
# Line 93  module Make(M: sig Line 93  module Make(M: sig
93    
94      let hosts_by_key = Hashtbl.create 103      let hosts_by_key = Hashtbl.create 103
95    
96        let _ =
97         Heap.add_memstat "CommonHosts" (fun level buf ->
98          Printf.bprintf buf "  hosts_by_key: %d\n" (Hashtbl.length hosts_by_key);
99         )
100    
101    
102      let indexservers_counter = ref 0      let indexservers_counter = ref 0
103      let ultrapeers_counter = ref 0      let ultrapeers_counter = ref 0
104      let peers_counter = ref 0      let peers_counter = ref 0

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

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