/[mldonkey]/mldonkey/src/networks/donkey/donkeyGlobals.ml
ViewVC logotype

Diff of /mldonkey/src/networks/donkey/donkeyGlobals.ml

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

revision 1.48 by spiralvoice, Fri Sep 2 22:39:59 2005 UTC revision 1.49 by spiralvoice, Fri Sep 2 23:48:54 2005 UTC
# Line 962  Define a function to be called when the Line 962  Define a function to be called when the
962    
963  let _ =  let _ =
964    Heap.add_memstat "DonkeyGlobals" (fun level buf ->    Heap.add_memstat "DonkeyGlobals" (fun level buf ->
965          Printf.bprintf buf "Number of old files: %d\n" (List.length !!old_files);
966        Printf.bprintf buf "Current files: %d\n" (List.length !current_files);        Printf.bprintf buf "Current files: %d\n" (List.length !current_files);
967        let list = H.to_list clients_by_kind in        let list = H.to_list clients_by_kind in
968        Printf.bprintf buf  "Clients_by_kind: %d\n" (List.length list);        Printf.bprintf buf  "Clients_by_kind: %d\n" (List.length list);

Legend:
Removed from v.1.48  
changed lines
  Added in v.1.49

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