]> gitweb.factorcode.org Git - factor.git/blob - vm/to_tenured_collector.hpp
Merge branch 's3' of git://double.co.nz/git/factor
[factor.git] / vm / to_tenured_collector.hpp
1 namespace factor
2 {
3
4 struct to_tenured_policy {
5         factor_vm *myvm;
6         zone *tenured;
7
8         to_tenured_policy(factor_vm *myvm_) : myvm(myvm_), tenured(myvm->data->tenured) {}
9
10         bool should_copy_p(object *untagged)
11         {
12                 return !tenured->contains_p(untagged);
13         }
14 };
15
16 struct to_tenured_collector : copying_collector<tenured_space,to_tenured_policy> {
17         to_tenured_collector(factor_vm *myvm_);
18         void go();
19 };
20
21 }