webapps.wiki: adding search bar

[factor.git] / vm / tenured_space.hpp

diff --git a/vm/tenured_space.hpp b/vm/tenured_space.hpp
index a05b272fb644c56eb172b41a7fd1540d65ad7bfa..2fff0515ad7cd6e43e18d583d42270413aea6ef2 100644 (file)
--- a/vm/tenured_space.hpp
+++ b/vm/tenured_space.hpp
@@ -1,12 +1,41 @@
-namespace factor
-{
+namespace factor {
 
-struct tenured_space : old_space {
-       tenured_space(cell size, cell start) : old_space(size,start) {}
+struct tenured_space : free_list_allocator<object> {
+  object_start_map starts;
 
-       bool is_nursery_p() { return false; }
-       bool is_aging_p()   { return false; }
-       bool is_tenured_p() { return true; }
+  tenured_space(cell size, cell start)
+      : free_list_allocator<object>(size, start), starts(size, start) {}
+
+  object* allot(cell size) {
+    object* obj = free_list_allocator<object>::allot(size);
+    if (obj) {
+      starts.record_object_start_offset(obj);
+      return obj;
+    }
+    return NULL;
+  }
+
+  cell next_allocated_object_after(cell scan) {
+    while (scan != this->end && ((object*)scan)->free_p()) {
+      free_heap_block* free_block = (free_heap_block*)scan;
+      scan = (cell)free_block + free_block->size();
+    }
+    return scan == this->end ? 0 : scan;
+  }
+
+  cell first_object() {
+    return next_allocated_object_after(this->start);
+  }
+
+  cell next_object_after(cell scan) {
+    cell size = ((object*)scan)->size();
+    return next_allocated_object_after(scan + size);
+  }
+
+  void sweep() {
+    free_list_allocator<object>::sweep();
+    starts.update_for_sweep(&this->state);
+  }
 };
 
 }