factor/vm/full_collector.hpp

namespace factor
{

struct full_policy {
	factor_vm *parent;
	tenured_space *tenured;

	explicit full_policy(factor_vm *parent_) : parent(parent_), tenured(parent->data->tenured) {}

	bool should_copy_p(object *untagged)
	{
		return !tenured->contains_p(untagged);
	}

	void promoted_object(object *obj)
	{
		tenured->mark_and_push(obj);
	}

	void visited_object(object *obj)
	{
		if(!tenured->marked_p(obj))
			tenured->mark_and_push(obj);
	}
};

struct full_collector : collector<tenured_space,full_policy> {
	bool trace_contexts_p;

	explicit full_collector(factor_vm *parent_);
};

}