2009-10-07 16:48:09 -04:00
|
|
|
#include "master.hpp"
|
|
|
|
|
2013-05-11 21:39:48 -04:00
|
|
|
namespace factor {
|
2009-10-07 16:48:09 -04:00
|
|
|
|
2015-05-03 21:57:35 -04:00
|
|
|
struct aging_policy {
|
|
|
|
factor_vm* parent;
|
|
|
|
aging_space* aging;
|
|
|
|
tenured_space* tenured;
|
|
|
|
|
|
|
|
explicit aging_policy(factor_vm* parent)
|
|
|
|
: parent(parent),
|
|
|
|
aging(parent->data->aging),
|
|
|
|
tenured(parent->data->tenured) {}
|
|
|
|
|
|
|
|
bool should_copy_p(object* untagged) {
|
|
|
|
return !(aging->contains_p(untagged) || tenured->contains_p(untagged));
|
|
|
|
}
|
|
|
|
|
|
|
|
void promoted_object(object* obj) {}
|
|
|
|
|
|
|
|
void visited_object(object* obj) {}
|
|
|
|
};
|
|
|
|
|
2013-05-11 21:39:48 -04:00
|
|
|
void factor_vm::collect_aging() {
|
|
|
|
/* Promote objects referenced from tenured space to tenured space, copy
|
|
|
|
everything else to the aging semi-space, and reset the nursery pointer. */
|
|
|
|
{
|
|
|
|
/* Change the op so that if we fail here, an assertion will be
|
|
|
|
raised. */
|
|
|
|
current_gc->op = collect_to_tenured_op;
|
2009-10-15 06:51:11 -04:00
|
|
|
|
2015-05-03 11:51:51 -04:00
|
|
|
collector<tenured_space, to_tenured_policy> collector(this,
|
|
|
|
this->data->tenured,
|
|
|
|
to_tenured_policy(this));
|
2013-05-11 21:39:48 -04:00
|
|
|
gc_event* event = current_gc->event;
|
2010-09-04 16:21:45 -04:00
|
|
|
|
2013-05-11 21:39:48 -04:00
|
|
|
if (event)
|
|
|
|
event->started_card_scan();
|
2015-02-21 08:08:40 -05:00
|
|
|
collector.trace_cards(data->tenured, card_points_to_aging, 0xff);
|
2013-05-11 21:39:48 -04:00
|
|
|
if (event)
|
|
|
|
event->ended_card_scan(collector.cards_scanned, collector.decks_scanned);
|
2009-10-27 00:57:26 -04:00
|
|
|
|
2013-05-11 21:39:48 -04:00
|
|
|
if (event)
|
|
|
|
event->started_code_scan();
|
|
|
|
collector.trace_code_heap_roots(&code->points_to_aging);
|
|
|
|
if (event)
|
|
|
|
event->ended_code_scan(collector.code_blocks_scanned);
|
2009-11-02 00:14:34 -05:00
|
|
|
|
2015-02-19 08:43:54 -05:00
|
|
|
collector.visitor.visit_mark_stack(&mark_stack);
|
2013-05-11 21:39:48 -04:00
|
|
|
}
|
|
|
|
{
|
|
|
|
/* If collection fails here, do a to_tenured collection. */
|
|
|
|
current_gc->op = collect_aging_op;
|
2009-10-15 06:51:11 -04:00
|
|
|
|
2013-05-11 21:39:48 -04:00
|
|
|
std::swap(data->aging, data->aging_semispace);
|
2015-01-10 10:14:54 -05:00
|
|
|
data->reset_aging();
|
2009-10-08 03:10:28 -04:00
|
|
|
|
2015-05-03 21:50:02 -04:00
|
|
|
collector<aging_space, aging_policy> collector(this,
|
|
|
|
this->data->aging,
|
|
|
|
aging_policy(this));
|
2009-10-27 00:57:26 -04:00
|
|
|
|
2015-02-18 23:43:53 -05:00
|
|
|
collector.visitor.visit_all_roots();
|
2013-05-11 21:39:48 -04:00
|
|
|
collector.cheneys_algorithm();
|
2009-10-21 20:41:54 -04:00
|
|
|
|
2015-01-10 10:14:54 -05:00
|
|
|
data->reset_nursery();
|
2013-05-11 21:39:48 -04:00
|
|
|
code->clear_remembered_set();
|
|
|
|
}
|
2009-10-07 16:48:09 -04:00
|
|
|
}
|
|
|
|
|
|
|
|
}
|