Parent Directory | Revision Log | 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 | ) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |