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-12 23:20:43 -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) {
|
2013-05-13 00:53:47 -04:00
|
|
|
parent->mark_stack.push_back((cell)obj);
|
2013-05-11 22:29:54 -04:00
|
|
|
}
|
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
|
|
|
};
|
|
|
|
|
|
|
|
}
|