PR#5389 (followup): update caml_stat_heap_chunks

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

1 files changed, 2 insertions, 0 deletions

diff --git a/byterun/compact.c b/byterun/compact.c
index b3c75f338..17d574bb7 100644
--- a/byterun/compact.c
+++ b/byterun/compact.c
@@ -438,11 +438,13 @@ void caml_compact_heap (void)
     }
     Chunk_next (chunk) = caml_heap_start;
     caml_heap_start = chunk;
+    ++ caml_stat_heap_chunks;
     caml_stat_heap_size += Chunk_size (chunk);
     if (caml_stat_heap_size > caml_stat_top_heap_size){
       caml_stat_top_heap_size = caml_stat_heap_size;
     }
     do_compaction ();
+    Assert (caml_stat_heap_chunks == 1);
     Assert (Chunk_next (caml_heap_start) == NULL);
   }
 }