2013-05-11 22:29:34 -04:00
|
|
|
namespace factor {
|
2009-10-07 16:48:09 -04:00
|
|
|
|
2009-10-20 23:20:49 -04:00
|
|
|
struct tenured_space : free_list_allocator<object> {
|
2013-05-11 22:29:34 -04:00
|
|
|
object_start_map starts;
|
|
|
|
|
2013-05-12 21:48:38 -04:00
|
|
|
tenured_space(cell size, cell start)
|
2013-05-11 22:29:34 -04:00
|
|
|
: free_list_allocator<object>(size, start), starts(size, start) {}
|
|
|
|
|
|
|
|
object* allot(cell size) {
|
|
|
|
object* obj = free_list_allocator<object>::allot(size);
|
|
|
|
if (obj) {
|
|
|
|
starts.record_object_start_offset(obj);
|
|
|
|
return obj;
|
|
|
|
} else
|
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
|
|
|
|
cell first_object() {
|
2015-01-06 13:38:53 -05:00
|
|
|
return (cell)next_allocated_block_after((object*)this->start);
|
2013-05-11 22:29:34 -04:00
|
|
|
}
|
|
|
|
|
|
|
|
cell next_object_after(cell scan) {
|
|
|
|
cell size = ((object*)scan)->size();
|
|
|
|
object* next = (object*)(scan + size);
|
2013-05-13 00:53:47 -04:00
|
|
|
return (cell)next_allocated_block_after(next);
|
2013-05-11 22:29:34 -04:00
|
|
|
}
|
|
|
|
|
|
|
|
void sweep() {
|
|
|
|
free_list_allocator<object>::sweep();
|
|
|
|
starts.update_for_sweep(&this->state);
|
|
|
|
}
|
2009-10-07 16:48:09 -04:00
|
|
|
};
|
|
|
|
|
|
|
|
}
|