[Mldonkey-commits] Changes to mldonkey/src/utils/lib/unix32.ml

[mldonkey-commits]

Index: mldonkey/src/utils/lib/unix32.ml
diff -u mldonkey/src/utils/lib/unix32.ml:1.43 
mldonkey/src/utils/lib/unix32.ml:1.44
--- mldonkey/src/utils/lib/unix32.ml:1.43       Sun Sep 18 19:00:53 2005
+++ mldonkey/src/utils/lib/unix32.ml    Mon Sep 19 10:09:05 2005
@@ -1616,3 +1616,11 @@
             Printf.sprintf "unknown (%Ld)" s.f_type
     with e -> "not supported"
   end
+
+let _ =
+  Heap.add_memstat "Unix32" (fun level buf ->
+      let counter = ref 0 in
+      H.iter (fun _ -> incr counter) table;
+      Printf.bprintf buf "  table: %d\n" !counter;
+      Printf.bprintf buf "  modified_files: %d\n" (List.length 
!modified_files);
+  )