diff options
| author | Damien Doligez <damien.doligez-inria.fr> | 2002-12-12 18:59:11 +0000 |
|---|---|---|
| committer | Damien Doligez <damien.doligez-inria.fr> | 2002-12-12 18:59:11 +0000 |
| commit | 1ceb86a2eac58b21c0ff8c3daeff87425cbdf56f (patch) | |
| tree | 3f23e8b986480928e9ddda87f0339b25c8053d44 /byterun/gc_ctrl.c | |
| parent | acb60d3c7e4ab7dbba1f2b37afbd9d97a9c68696 (diff) | |
PR#1495
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@5340 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
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; |