Report full major collections in Gc stats

1 files changed, 5 insertions, 3 deletions

diff --git a/stdlib/gc.ml b/stdlib/gc.ml
index 9a5c004e64..75c13a3785 100644
--- a/stdlib/gc.ml
+++ b/stdlib/gc.ml
@@ -31,6 +31,7 @@ type stat = {
   compactions : int;
   top_heap_words : int;
   stack_size : int;
+  forced_major_collections: int;
 }
 
 type control = {
@@ -70,9 +71,10 @@ open Printf
 
 let print_stat c =
   let st = stat () in
-  fprintf c "minor_collections: %d\n" st.minor_collections;
-  fprintf c "major_collections: %d\n" st.major_collections;
-  fprintf c "compactions:       %d\n" st.compactions;
+  fprintf c "minor_collections:      %d\n" st.minor_collections;
+  fprintf c "major_collections:      %d\n" st.major_collections;
+  fprintf c "compactions:            %d\n" st.compactions;
+  fprintf c "forced_major_collections: %d\n" st.forced_major_collections;
   fprintf c "\n";
   let l1 = String.length (sprintf "%.0f" st.minor_words) in
   fprintf c "minor_words:    %*.0f\n" l1 st.minor_words;