vm/arrays.hpp

   1 namespace factor {
   2
   3 inline cell array_nth(array* array, cell slot) {
   4   FACTOR_ASSERT(slot < array_capacity(array));
   5   FACTOR_ASSERT(array->type() == ARRAY_TYPE);
   6   return array->data()[slot];
   7 }
   8
   9 inline void factor_vm::set_array_nth(array* array, cell slot, cell value) {
  10   FACTOR_ASSERT(slot < array_capacity(array));
  11   FACTOR_ASSERT(array->type() == ARRAY_TYPE);
  12   cell* slot_ptr = &array->data()[slot];
  13   *slot_ptr = value;
  14   write_barrier(slot_ptr);
  15 }
  16
  17 struct growable_array {
  18   cell count;
  19   data_root<array> elements;
  20
  21   growable_array(factor_vm* parent, cell capacity = 10)
  22       : count(0),
  23         elements(parent->allot_array(capacity, false_object), parent) {}
  24
  25   void add(cell elt);
  26   void append(array* elts);
  27   void trim();
  28 };
  29
  30 }