Ejemplos de test_and_compact en C++ (Cpp)

Ejemplo n.º 1

Archivo: gc_ctrl.c Proyecto: rizo/snowflake-os

CAMLprim value caml_gc_major(value v)
{   Assert (v == Val_unit);
    caml_gc_message (0x1, "Major GC cycle requested\n", 0);
    caml_empty_minor_heap ();
    caml_finish_major_cycle ();
    test_and_compact ();
    caml_final_do_calls ();
    return Val_unit;
}

Ejemplo n.º 2

Archivo: gc_ctrl.c Proyecto: vouillon/ocaml

CAMLprim value caml_gc_major(value v)
{
  CAML_INSTR_SETUP (tmr, "");
  Assert (v == Val_unit);
  caml_gc_message (0x1, "Major GC cycle requested\n", 0);
  caml_empty_minor_heap ();
  caml_finish_major_cycle ();
  test_and_compact ();
  caml_final_do_calls ();
  CAML_INSTR_TIME (tmr, "explicit/gc_major");
  return Val_unit;
}