-namespace factor
-{
+namespace factor {
+
+struct must_start_gc_again {
+};
enum gc_op {
- collect_nursery_op,
- collect_aging_op,
- collect_to_tenured_op,
- collect_full_op,
- collect_compact_op,
- collect_growing_heap_op
+ COLLECT_NURSERY_OP,
+ COLLECT_AGING_OP,
+ COLLECT_TO_TENURED_OP,
+ COLLECT_FULL_OP,
+ COLLECT_COMPACT_OP,
+ COLLECT_GROWING_DATA_HEAP_OP
+};
+
+// These are the phases of the gc cycles we record the times of.
+enum gc_phase {
+ PHASE_CARD_SCAN,
+ PHASE_CODE_SCAN,
+ PHASE_DATA_SWEEP,
+ PHASE_CODE_SWEEP,
+ PHASE_DATA_COMPACTION,
+ PHASE_MARKING
};
struct gc_event {
- gc_op op;
- data_heap_room data_heap_before;
- code_heap_room code_heap_before;
- data_heap_room data_heap_after;
- code_heap_room code_heap_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;
- u64 temp_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);
+ gc_op op;
+ data_heap_room data_heap_before;
+ allocator_room code_heap_before;
+ data_heap_room data_heap_after;
+ allocator_room code_heap_after;
+ cell cards_scanned;
+ cell decks_scanned;
+ cell code_blocks_scanned;
+ uint64_t start_time;
+ cell total_time;
+ cell times[6];
+ uint64_t temp_time;
+
+ gc_event(gc_op op, factor_vm* parent);
+ void reset_timer();
+ void ended_phase(gc_phase phase);
+ void ended_gc(factor_vm* parent);
};
struct gc_state {
- gc_op op;
- u64 start_time;
- gc_event *event;
+ gc_op op;
+ uint64_t start_time;
+ gc_event* event;
- explicit gc_state(gc_op op_, factor_vm *parent);
- ~gc_state();
- void start_again(gc_op op_, factor_vm *parent);
+ 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, factor_vm *parent);
-
}