factor/vm/gc.hpp

namespace factor
{

enum gc_op {
	collect_nursery_op,
	collect_aging_op,
	collect_to_tenured_op,
	collect_full_op,
	collect_compact_op,
	collect_growing_heap_op
};

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);
};

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);
};

VM_C_API void inline_gc(cell *gc_roots_base, cell gc_roots_size, factor_vm *parent);

}