SumiTomohikoのWiki

• ocaml-3.11.0/byterun/major_gc.c

static void realloc_gray_vals (void)
{
  value *new;

  Assert (gray_vals_cur == gray_vals_end);
  if (gray_vals_size < caml_stat_heap_size / 128){

• ocaml-3.11.0/gray_vals_size
• ocaml-3.11.0/caml_stat_heap_size

    caml_gc_message (0x08, "Growing gray_vals to %"
                           ARCH_INTNAT_PRINTF_FORMAT "uk bytes\n",
                     (intnat) gray_vals_size * sizeof (value) / 512);
    new = (value *) realloc ((char *) gray_vals,
                             2 * gray_vals_size * sizeof (value));

• ocaml-3.11.0/gray_vals

    if (new == NULL){
      caml_gc_message (0x08, "No room for growing gray_vals\n", 0);
      gray_vals_cur = gray_vals;

• ocaml-3.11.0/gray_vals_cur

      heap_is_pure = 0;

• ocaml-3.11.0/heap_is_pure

    }else{
      gray_vals = new;
      gray_vals_cur = gray_vals + gray_vals_size;
      gray_vals_size *= 2;
      gray_vals_end = gray_vals + gray_vals_size;

• ocaml-3.11.0/gray_vals_end

    }
  }else{
    gray_vals_cur = gray_vals + gray_vals_size / 2;
    heap_is_pure = 0;
  }
}