/[mldonkey]/mldonkey/src/utils/lib/unix32.ml
ViewVC logotype

Diff of /mldonkey/src/utils/lib/unix32.ml

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

revision 1.43 by spiralvoice, Sun Sep 18 19:00:53 2005 UTC revision 1.44 by spiralvoice, Mon Sep 19 10:09:05 2005 UTC
# Line 1616  let filesystem dir = Line 1616  let filesystem dir =
1616               Printf.sprintf "unknown (%Ld)" s.f_type               Printf.sprintf "unknown (%Ld)" s.f_type
1617      with e -> "not supported"      with e -> "not supported"
1618    end    end
1619    
1620    let _ =
1621      Heap.add_memstat "Unix32" (fun level buf ->
1622          let counter = ref 0 in
1623          H.iter (fun _ -> incr counter) table;
1624          Printf.bprintf buf "  table: %d\n" !counter;
1625          Printf.bprintf buf "  modified_files: %d\n" (List.length !modified_files);
1626      )

Legend:
Removed from v.1.43  
changed lines
  Added in v.1.44

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