webapps.wiki: adding search bar

[factor.git] / vm / tenured_space.hpp

diff --git a/vm/tenured_space.hpp b/vm/tenured_space.hpp
index 1162bb5fd334cbc78ce9814ea210995f7f370d86..2fff0515ad7cd6e43e18d583d42270413aea6ef2 100644 (file)
--- a/vm/tenured_space.hpp
+++ b/vm/tenured_space.hpp
@@ -1,20 +1,41 @@
-namespace factor
-{
+namespace factor {
 
-struct tenured_space : bump_allocator {
-       object_start_map starts;
+struct tenured_space : free_list_allocator<object> {
+  object_start_map starts;
 
-       tenured_space(cell size, cell start) :
-               bump_allocator(size,start), starts(size,start) {}
+  tenured_space(cell size, cell start)
+      : free_list_allocator<object>(size, start), starts(size, start) {}
 
-       object *allot(cell size)
-       {
-               if(here + size > end) return NULL;
+  object* allot(cell size) {
+    object* obj = free_list_allocator<object>::allot(size);
+    if (obj) {
+      starts.record_object_start_offset(obj);
+      return obj;
+    }
+    return NULL;
+  }
 
-               object *obj = bump_allocator::allot(size);
-               starts.record_object_start_offset(obj);
-               return obj;
-       }
+  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);
+  }
 };
 
 }