Oups, code de test commis par erreur

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@4077 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
2001-12-03 12:25:31 +00:00 · 2001-12-03 12:25:31 +00:00 · 71115ae7db
parent b2247c3fc6
commit 71115ae7db
1 changed files with 1 additions and 1 deletions
--- a/byterun/memory.c
+++ b/byterun/memory.c
@ -251,7 +251,7 @@ value alloc_shr (mlsize_t wosize, tag_t tag)
  }
  Assert (Hd_hp (hp) == Make_header (wosize, tag, allocation_color (hp)));
  allocated_words += Whsize_wosize (wosize);
-  /*if (allocated_words > Wsize_bsize (minor_heap_size)) urge_major_slice ();*/
+  if (allocated_words > Wsize_bsize (minor_heap_size)) urge_major_slice ();
 #ifdef DEBUG
  {
    unsigned long i;