SumiTomohikoのWiki

• f: コールバックする関数へのポインタ。

なし。

• ocaml-3.11.0/byterun/globroots.c

/* Scan global roots for a minor collection */

void caml_scan_global_young_roots(scanning_action f)

• ocaml-3.11.0/scanning_action

{
  struct global_root * gr;

• ocaml-3.11.0/global_root

  caml_iterate_global_roots(f, &caml_global_roots);

• ocaml-3.11.0/caml_iterate_global_roots
• ocaml-3.11.0/caml_global_roots

  caml_iterate_global_roots(f, &caml_global_roots_young);

• ocaml-3.11.0/caml_global_roots_young

  /* Move young roots to old roots */

新世代のルートを、旧世代のルートに移動する。

  for (gr = caml_global_roots_young.forward[0];
       gr != NULL; gr = gr->forward[0]) {
    caml_insert_global_root(&caml_global_roots_old, gr->root);

• ocaml-3.11.0/caml_insert_global_root

  }
  caml_empty_global_roots(&caml_global_roots_young);

• ocaml-3.11.0/caml_empty_global_roots

}