vm/arrays.hpp

   1 namespace factor
   2 {
   3
   4 inline cell array_nth(array *array, cell slot)
   5 {
   6 #ifdef FACTOR_DEBUG
   7         assert(slot < array_capacity(array));
   8         assert(array->h.hi_tag() == ARRAY_TYPE);
   9 #endif
  10         return array->data()[slot];
  11 }
  12
  13 inline void factorvm::set_array_nth(array *array, cell slot, cell value)
  14 {
  15 #ifdef FACTOR_DEBUG
  16         assert(slot < array_capacity(array));
  17         assert(array->h.hi_tag() == ARRAY_TYPE);
  18         check_tagged_pointer(value);
  19 #endif
  20         array->data()[slot] = value;
  21         write_barrier(array);
  22 }
  23
  24 inline void set_array_nth(array *array, cell slot, cell value)
  25 {
  26         return vm->set_array_nth(array,slot,value);
  27 }
  28
  29 array *allot_array(cell capacity, cell fill);
  30
  31 cell allot_array_1(cell obj);
  32 cell allot_array_2(cell v1, cell v2);
  33 cell allot_array_4(cell v1, cell v2, cell v3, cell v4);
  34
  35 PRIMITIVE(array);
  36 PRIMITIVE(resize_array);
  37
  38 struct growable_array {
  39         cell count;
  40         gc_root<array> elements;
  41
  42         growable_array(factorvm *myvm, cell capacity = 10) : count(0), elements(allot_array(capacity,F),myvm) {}
  43
  44         void add(cell elt);
  45         void trim();
  46 };
  47
  48 }