diff options
Diffstat (limited to 'byterun/gc_ctrl.c')
| -rw-r--r-- | byterun/gc_ctrl.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/byterun/gc_ctrl.c b/byterun/gc_ctrl.c index 8e9ee6daa..090cd71d3 100644 --- a/byterun/gc_ctrl.c +++ b/byterun/gc_ctrl.c @@ -182,13 +182,16 @@ static value heap_stats (int returnstats) if (Whsize_hd (cur_hd) > largest_free){ largest_free = Whsize_hd (cur_hd); } + /* not true any more with big heap chunks Assert (prev_hp == NULL || (Color_hp (prev_hp) != Caml_blue && Wosize_hp (prev_hp) > 0) || cur_hp == gc_sweep_hp); Assert (Next (cur_hp) == chunk_end || (Color_hp (Next (cur_hp)) != Caml_blue && Wosize_hp (Next (cur_hp)) > 0) + || (Whsize_hd (cur_hd) + Wosize_hp (Next (cur_hp)) > Max_wosize) || Next (cur_hp) == gc_sweep_hp); + */ break; } prev_hp = cur_hp; |