void sml_heap_gc() { GIANT_LOCK(NULL); STOP_THE_WORLD(); sml_rootset_enum_ptr(trace, MAJOR); sml_malloc_pop_and_mark(trace, MAJOR); sml_check_finalizer(trace, MAJOR); sml_malloc_sweep(MAJOR); RUN_THE_WORLD(); GIANT_UNLOCK(); sml_run_finalizer(NULL); }
static void do_gc(void) { #ifdef GCTIME sml_timer_t b_start, b_end; sml_time_t gctime; #endif /* GCTIME */ #ifdef GCSTAT sml_time_t t; #endif /* GCSTAT */ STOP_THE_WORLD(); #ifdef GCSTAT if (gcstat.verbose >= GCSTAT_VERBOSE_COUNT) { stat_notice("---"); stat_notice("event: start gc"); stat_notice("trigger: %u", gcstat.last.trigger); print_alloc_count(); print_heap_occupancy(); } clear_last_counts(); #endif /* GCSTAT */ #ifdef GCTIME gcstat.gc.count++; sml_timer_now(b_start); #endif /* GCTIME */ heap_space_unprotect(&sml_heap_to_space); DBG(("start gc (%lu/%lu used) %p -> %p", (unsigned long)HEAP_USED(sml_heap_from_space), (unsigned long)HEAP_TOTAL(sml_heap_from_space), sml_heap_from_space.base, sml_heap_to_space.base)); sml_rootset_enum_ptr(forward, MAJOR); DBG(("copying root completed")); /* forward objects which are reachable from live objects. */ forward_region(HEAP_START(sml_heap_to_space)); sml_malloc_pop_and_mark(forward_deep, MAJOR); #ifndef FAIR_COMPARISON /* check finalization */ sml_check_finalizer(forward_deep, MAJOR); #endif /* FAIR_COMPARISON */ /* clear from-space, and swap two spaces. */ heap_space_clear(&sml_heap_from_space); heap_space_swap(); heap_space_protect(&sml_heap_to_space); /* sweep malloc heap */ sml_malloc_sweep(MAJOR); DBG(("gc finished. remain %lu bytes", (unsigned long)HEAP_USED(sml_heap_from_space))); #ifdef GCTIME sml_timer_now(b_end); #endif /* GCTIME */ #ifdef GCTIME sml_timer_dif(b_start, b_end, gctime); sml_time_accum(gctime, gcstat.gc.total_time); #endif /* GCTIME */ #ifdef GCSTAT gcstat.gc.total_copy_bytes += gcstat.last.copy_bytes; gcstat.gc.total_copy_count += gcstat.last.copy_count; gcstat.gc.total_forward_count += gcstat.last.forward_count; if (gcstat.verbose >= GCSTAT_VERBOSE_GC) { sml_timer_dif(gcstat.exec_begin, b_start, t); stat_notice("time: "TIMEFMT, TIMEARG(t)); stat_notice("---"); stat_notice("event: end gc"); sml_timer_dif(gcstat.exec_begin, b_end, t); stat_notice("time: "TIMEFMT, TIMEARG(t)); stat_notice("duration: "TIMEFMT, TIMEARG(gctime)); stat_notice("copy: %u", gcstat.last.copy_count); stat_notice("forward: %u", gcstat.last.forward_count); stat_notice("copy_bytes: %lu", (unsigned long)gcstat.last.copy_bytes); print_heap_occupancy(); } #endif /* GCSTAT */ RUN_THE_WORLD(); }