void
sml_heap_free()
{
heap_space_free(&sml_heap_from_space);
heap_space_free(&sml_heap_to_space);
#ifdef GCTIME
sml_timer_now(gcstat.exec_end);
sml_timer_dif(gcstat.exec_begin, gcstat.exec_end, gcstat.exec_time);
#endif /* GCTIME */
#if defined GCSTAT || defined GCTIME
#ifdef GCSTAT
stat_notice("---");
stat_notice("event: finish");
stat_notice("time: "TIMEFMT, TIMEARG(gcstat.exec_time));
print_alloc_count();
#endif /* GCSTAT */
stat_notice("exec time : "TIMEFMT" #sec",
TIMEARG(gcstat.exec_time));
stat_notice("gc count : %u #times", gcstat.gc.count);
stat_notice("gc time : "TIMEFMT" #sec (%4.2f%%), avg: %.6f sec",
TIMEARG(gcstat.gc.total_time),
TIMEFLOAT(gcstat.gc.total_time)
/ TIMEFLOAT(gcstat.exec_time) * 100.0f,
TIMEFLOAT(gcstat.gc.total_time)
/ (double)gcstat.gc.count);
#ifdef GCSTAT
stat_notice("total copy bytes :%10lu #bytes, avg:%8.2f bytes",
gcstat.gc.total_copy_bytes,
(double)gcstat.gc.total_copy_bytes
/ (double)gcstat.gc.count);
stat_notice("total copy count :%10lu #times, avg:%8.2f times",
gcstat.gc.total_copy_count,
(double)gcstat.gc.total_copy_count
/ (double)gcstat.gc.count);
stat_notice("total forward count :%10lu #times, avg:%8.2f times",
gcstat.gc.total_forward_count,
(double)gcstat.gc.total_forward_count
/ (double)gcstat.gc.count);
if (gcstat.file)
fclose(gcstat.file);
#endif /* GCSTAT */
#endif /* GCSTAT || GCTIME */
}
void
sml_heap_free()
{
#ifdef PRINT_ALLOC_TIME
print_and_close_file();
#endif /* PRINT_ALLOC_TIME */
free(major_heap.base);
#ifdef GCTIME
sml_timer_now(gcstat.exec_end);
sml_timer_dif(gcstat.exec_begin, gcstat.exec_end, gcstat.exec_time);
#endif /* GCTIME */
#if defined GCSTAT || defined GCTIME
#ifdef GCSTAT
stat_notice("---");
stat_notice("event: finish");
stat_notice("time: "TIMEFMT, TIMEARG(gcstat.exec_time));
print_alloc_count();
#endif /* GCSTAT */
stat_notice("exec time : "TIMEFMT" #sec",
TIMEARG(gcstat.exec_time));
stat_notice("gc count : %u #times", gcstat.gc.count);
stat_notice("gc time : "TIMEFMT" #sec (%4.2f%%)",
TIMEARG(gcstat.gc.total_time),
TIMEFLOAT(gcstat.gc.total_time) / TIMEFLOAT(gcstat.exec_time)
* 100.0f);
stat_notice("avg gc time : %.6f #sec",
TIMEFLOAT(gcstat.gc.total_time) / (double)gcstat.gc.count);
//#ifdef GCSTAT
stat_notice("clear time : "TIMEFMT" #sec (%4.2f%%)",
TIMEARG(gcstat.gc.clear_time),
TIMEFLOAT(gcstat.gc.clear_time) / TIMEFLOAT(gcstat.gc.total_time)
* 100.0f);
stat_notice("avg clear time : %.6f #sec",
TIMEFLOAT(gcstat.gc.clear_time) / (double)gcstat.gc.count);
#ifdef GCSTAT
if (gcstat.file)
fclose(gcstat.file);
#endif /* GCSTAT */
#endif /* GCSTAT || GCTIME */
}
static void
sml_heap_alloced(size_t size)
{
sml_timer_t b;
sml_time_t t;
gcstat.last.alloc_bytes += size;
if (gcstat.last.alloc_bytes > gcstat.probe_threshold
&& gcstat.verbose >= GCSTAT_VERBOSE_PROBE) {
sml_timer_now(b);
sml_timer_dif(gcstat.exec_begin, b, t);
stat_notice("---");
stat_notice("event: probe");
stat_notice("time: "TIMEFMT, TIMEARG(t));
print_alloc_count();
print_heap_occupancy();
clear_last_counts();
}
gcstat.last.alloc_count++;
}
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();
}
void
sml_heap_gc(void)
{
#ifdef GCTIME
sml_timer_t b_start, b_end;
sml_time_t gctime;
//#endif /* GCTIME */
//#ifdef GCSTAT
sml_time_t cleartime,t;
sml_timer_t b_cleared;
#endif /* GCSTAT */
#ifdef GCSTAT
if (gcstat.verbose >= GCSTAT_VERBOSE_COUNT) {
stat_notice("---");
stat_notice("event: start gc");
if (gcstat.last.trigger)
stat_notice("trigger: %u", gcstat.last.trigger);
print_alloc_count();
print_heap_occupancy();
}
clear_last_counts();
#endif /* GCSTAT */
DBG(("start gc"));
#ifdef GCTIME
gcstat.gc.count++;
sml_timer_now(b_start);
#endif /* GCTIME */
#ifdef PRINT_ALLOC_TIME
live_tmp = 0;
count_gc++;
double st;
getRusage(st);
#endif /* PRINT_ALLOC_TIME */
all_bitmaps_space_clear();
#ifdef GCTIME//GCSTAT
sml_timer_now(b_cleared);
#endif /* GCSTAT */
#ifdef PRINT_ALLOC_TIME
double en;
getRusage(en);
all_time_bit_clear += (en - st);
#endif /* PRINT_ALLOC_TIME */
/* mark root objects */
sml_rootset_enum_ptr(mark, MAJOR);
DBG(("marking root objects completed"));
/* STACK POP */
while (marking_stack.bottom != marking_stack.top) {
marking_stack.top--;
mark_children((*(marking_stack.top)));
}
sml_malloc_pop_and_mark(mark_all, MAJOR);
DBG(("marking completed"));
#ifdef CHECK
clear_heap();
#endif /* CHECK */
/* check finalization */
sml_check_finalizer(mark_all, MAJOR);
/* sweep malloc heap */
sml_malloc_sweep(MAJOR);
#ifdef GCTIME
sml_timer_now(b_end);
#endif /* GCTIME */
DBG(("gc finished."));
#ifdef GCTIME
sml_timer_dif(b_start, b_end, gctime);
sml_time_accum(gctime, gcstat.gc.total_time);
sml_timer_dif(b_start, b_cleared, cleartime);
sml_time_accum(cleartime, gcstat.gc.clear_time);
#endif
#ifdef GCSTAT
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("clear_time: "TIMEFMT, TIMEARG(cleartime));
stat_notice("clear_bytes: %lu", gcstat.last.clear_bytes);
stat_notice("push: %u", gcstat.last.push_count);
stat_notice("trace: %u", gcstat.last.trace_count);
print_heap_occupancy();
}
#endif /* GCSTAT */
#ifdef PRINT_ALLOC_TIME
if(live_tmp > live_max) live_max = live_tmp;
if(live_tmp < live_min) live_min = live_tmp;
live_all += live_tmp;
unsigned int i;
for(i=0; i<THE_NUMBER_OF_FIXED_BLOCK; i++) {
if(((print_info[i].count_mark - print_info[i].tmp_mark) * print_info[i].block_size)
> print_info[i].max_live)
print_info[i].max_live =
((print_info[i].count_mark - print_info[i].tmp_mark) * print_info[i].block_size);
print_info[i].tmp_mark=print_info[i].count_mark;
}
#endif /* PRINT_ALLOC_TIME */
/* start finalizers */
sml_run_finalizer(NULL);
}
