]> gitweb.factorcode.org Git - factor.git/blob - vm/nursery_collector.cpp
VM: the aging_policy and nursery_policy classes are so small that they
[factor.git] / vm / nursery_collector.cpp
1 #include "master.hpp"
2
3 namespace factor {
4
5 struct nursery_policy {
6   factor_vm* parent;
7
8   explicit nursery_policy(factor_vm* parent) : parent(parent) {}
9
10   bool should_copy_p(object* obj) {
11     return parent->data->nursery->contains_p(obj);
12   }
13
14   void promoted_object(object* obj) {}
15
16   void visited_object(object* obj) {}
17 };
18
19 void factor_vm::collect_nursery() {
20   /* Copy live objects from the nursery (as determined by the root set and
21      marked cards in aging and tenured) to aging space. */
22   collector<aging_space, nursery_policy> collector(this,
23                                                    this->data->aging,
24                                                    nursery_policy(this));
25
26   collector.visitor.visit_all_roots();
27   gc_event* event = current_gc->event;
28
29   if (event)
30     event->started_card_scan();
31   collector.trace_cards(data->tenured, card_points_to_nursery,
32                         card_points_to_nursery);
33   collector.trace_cards(data->aging, card_points_to_nursery, 0xff);
34
35   if (event)
36     event->ended_card_scan(collector.cards_scanned, collector.decks_scanned);
37
38   if (event)
39     event->started_code_scan();
40   collector.trace_code_heap_roots(&code->points_to_nursery);
41   if (event)
42     event->ended_code_scan(collector.code_blocks_scanned);
43
44   collector.cheneys_algorithm();
45
46   data->reset_nursery();
47   code->points_to_nursery.clear();
48 }
49
50 }