namespace factor { struct tenured_space : free_list_allocator { object_start_map starts; explicit tenured_space(cell size, cell start) : free_list_allocator(size,start), starts(size,start) {} object *allot(cell size) { object *obj = free_list_allocator::allot(size); if(obj) { starts.record_object_start_offset(obj); return obj; } else return NULL; } cell first_object() { return (cell)next_allocated_block_after(this->first_block()); } cell next_object_after(cell scan) { cell size = ((object *)scan)->size(); object *next = (object *)(scan + size); return (cell)next_allocated_block_after(next); } void clear_mark_bits() { state.clear_mark_bits(); } bool marked_p(object *obj) { return this->state.marked_p(obj); } void set_marked_p(object *obj) { this->state.set_marked_p(obj); } void sweep() { free_list_allocator::sweep(); starts.update_for_sweep(&this->state); } }; }