2009-05-04 02:46:13 -04:00
|
|
|
namespace factor
|
|
|
|
{
|
|
|
|
|
2009-10-15 06:51:11 -04:00
|
|
|
enum gc_op {
|
|
|
|
collect_nursery_op,
|
|
|
|
collect_aging_op,
|
|
|
|
collect_to_tenured_op,
|
|
|
|
collect_full_op,
|
2009-10-25 15:02:14 -04:00
|
|
|
collect_compact_op,
|
2009-10-15 06:51:11 -04:00
|
|
|
collect_growing_heap_op
|
|
|
|
};
|
|
|
|
|
2009-10-26 23:12:44 -04:00
|
|
|
struct gc_event {
|
|
|
|
gc_op op;
|
|
|
|
cell nursery_size_before;
|
|
|
|
cell aging_size_before;
|
|
|
|
cell tenured_size_before;
|
|
|
|
cell tenured_free_block_count_before;
|
|
|
|
cell code_size_before;
|
|
|
|
cell code_free_block_count_before;
|
|
|
|
cell nursery_size_after;
|
|
|
|
cell aging_size_after;
|
|
|
|
cell tenured_size_after;
|
|
|
|
cell tenured_free_block_count_after;
|
|
|
|
cell code_size_after;
|
|
|
|
cell code_free_block_count_after;
|
|
|
|
cell cards_scanned;
|
|
|
|
cell decks_scanned;
|
|
|
|
cell code_blocks_scanned;
|
|
|
|
u64 start_time;
|
|
|
|
cell total_time;
|
|
|
|
cell card_scan_time;
|
|
|
|
cell code_scan_time;
|
|
|
|
cell data_sweep_time;
|
|
|
|
cell code_sweep_time;
|
|
|
|
cell compaction_time;
|
|
|
|
|
|
|
|
explicit gc_event(gc_op op_, factor_vm *parent);
|
|
|
|
void started_card_scan();
|
|
|
|
void ended_card_scan(cell cards_scanned_, cell decks_scanned_);
|
|
|
|
void started_code_scan();
|
|
|
|
void ended_code_scan(cell code_blocks_scanned_);
|
|
|
|
void started_data_sweep();
|
|
|
|
void ended_data_sweep();
|
|
|
|
void started_code_sweep();
|
|
|
|
void ended_code_sweep();
|
|
|
|
void started_compaction();
|
|
|
|
void ended_compaction();
|
|
|
|
void ended_gc(factor_vm *parent);
|
|
|
|
};
|
|
|
|
|
2009-10-27 00:57:26 -04:00
|
|
|
struct gc_state {
|
|
|
|
gc_op op;
|
|
|
|
u64 start_time;
|
|
|
|
jmp_buf gc_unwind;
|
|
|
|
gc_event *event;
|
|
|
|
|
|
|
|
explicit gc_state(gc_op op_, factor_vm *parent);
|
|
|
|
~gc_state();
|
|
|
|
void start_again(gc_op op_, factor_vm *parent);
|
|
|
|
};
|
|
|
|
|
2009-10-18 21:31:59 -04:00
|
|
|
VM_C_API void inline_gc(cell *gc_roots_base, cell gc_roots_size, factor_vm *parent);
|
2009-05-04 02:00:30 -04:00
|
|
|
|
2009-05-04 02:46:13 -04:00
|
|
|
}
|