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

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

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

revision 1.31 by spiralvoice, Fri Aug 26 21:21:20 2005 UTC revision 1.32 by spiralvoice, Mon Sep 19 10:09:05 2005 UTC
# Line 265  let shareds_counter = ref 1 Line 265  let shareds_counter = ref 1
265  let shared_counter = ref (Int64.zero)  let shared_counter = ref (Int64.zero)
266  let shared_files = Hashtbl.create 13  let shared_files = Hashtbl.create 13
267    
268    let _ =
269      Heap.add_memstat "CommonUploads" (fun level buf ->
270       Printf.bprintf buf "  infos_by_name: %d\n" (Hashtbl.length infos_by_name);
271       Printf.bprintf buf "  shareds_by_uid: %d\n" (Hashtbl.length shareds_by_uid);
272       Printf.bprintf buf "  shareds_by_id: %d\n" (Hashtbl.length shareds_by_id);
273       Printf.bprintf buf "  shared_files: %d\n" (Hashtbl.length shared_files);
274      )
275    
276    
277  let new_shared_dir dirname = {  let new_shared_dir dirname = {
278      shared_dirname = dirname;      shared_dirname = dirname;
279      shared_files = [];      shared_files = [];

Legend:
Removed from v.1.31  
changed lines
  Added in v.1.32

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