2013-05-11 22:29:54 -04:00
|
|
|
namespace factor {
|
2009-10-07 16:48:09 -04:00
|
|
|
|
|
|
|
struct to_tenured_policy {
|
2013-05-11 22:29:54 -04:00
|
|
|
factor_vm* parent;
|
|
|
|
tenured_space* tenured;
|
2009-10-07 16:48:09 -04:00
|
|
|
|
2013-05-11 22:29:54 -04:00
|
|
|
explicit to_tenured_policy(factor_vm* parent_)
|
|
|
|
: parent(parent_), tenured(parent->data->tenured) {}
|
2009-10-07 16:48:09 -04:00
|
|
|
|
2013-05-11 22:29:54 -04:00
|
|
|
bool should_copy_p(object* untagged) {
|
|
|
|
return !tenured->contains_p(untagged);
|
|
|
|
}
|
2009-10-20 23:20:49 -04:00
|
|
|
|
2013-05-11 22:29:54 -04:00
|
|
|
void promoted_object(object* obj) {
|
|
|
|
parent->mark_stack.push_back((cell) obj);
|
|
|
|
}
|
2009-10-20 23:20:49 -04:00
|
|
|
|
2013-05-11 22:29:54 -04:00
|
|
|
void visited_object(object* obj) {}
|
2009-10-07 16:48:09 -04:00
|
|
|
};
|
|
|
|
|
2013-05-11 22:29:54 -04:00
|
|
|
struct to_tenured_collector : collector<tenured_space, to_tenured_policy> {
|
|
|
|
explicit to_tenured_collector(factor_vm* parent_);
|
|
|
|
void tenure_reachable_objects();
|
2009-10-07 16:48:09 -04:00
|
|
|
};
|
|
|
|
|
|
|
|
}
|