bug Gc.stats

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3361 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
bmeurer · Jan 5, 2001 · aeaf789 · aeaf789
1 parent 013d49e
commit aeaf789
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/byterun/gc_ctrl.c b/byterun/gc_ctrl.c
@@ -152,7 +152,13 @@ static value heap_stats (int returnstats)
                       && Wosize_hp (Next (cur_hp)) > 0)
                   || Next (cur_hp) == gc_sweep_hp);
         }else{
-          if (gc_phase == Phase_mark || gc_phase == Phase_idle){
+          if (gc_phase == Phase_sweep && cur_hp >= gc_sweep_hp){
+            ++ free_blocks;
+            free_words += Whsize_hd (cur_hd);
+            if (Whsize_hd (cur_hd) > largest_free){
+              largest_free = Whsize_hd (cur_hd);
+            }
+          }else{
             ++ live_blocks;
             live_words += Whsize_hd (cur_hd);
 #ifdef DEBUG