factor/vm/aging_space.hpp

35 lines
661 B
C++
Raw Normal View History

namespace factor {
struct aging_space : bump_allocator<object> {
object_start_map starts;
aging_space(cell size, cell start)
: bump_allocator<object>(size, start), starts(size, start) {}
object* allot(cell size) {
if (here + size > end)
return NULL;
object* obj = bump_allocator<object>::allot(size);
starts.record_object_start_offset(obj);
return obj;
}
cell next_object_after(cell scan) {
cell size = ((object*)scan)->size();
if (scan + size < here)
return scan + size;
else
return 0;
}
cell first_object() {
if (start != here)
return start;
else
return 0;
}
};
}