ajout Gc.counters et Gc.allocated_bytes

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@2645 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

1 files changed, 14 insertions, 0 deletions

diff --git a/byterun/gc_ctrl.c b/byterun/gc_ctrl.c
index 49568772e..0d04db0c8 100644
--- a/byterun/gc_ctrl.c
+++ b/byterun/gc_ctrl.c
@@ -225,6 +225,20 @@ value gc_stat(value v) /* ML */
   return heap_stats (1);
 }
 
+value gc_counters(value v) /* ML */
+{
+  CAMLparam1 (v);
+  CAMLlocal1 (res);
+
+  Assert (v == Val_unit);
+  res = alloc_small (3, 0);
+  Field (res, 0) = Val_long (stat_minor_words
+                             + Wsize_bsize (young_end - young_ptr));
+  Field (res, 1) = Val_long (stat_promoted_words);
+  Field (res, 2) = Val_long (stat_major_words + allocated_words);
+  CAMLreturn (res);
+}
+
 value gc_get(value v) /* ML */
 {
   value res;