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