4 inline cell array_nth(array *array, cell slot)
7 assert(slot < array_capacity(array));
8 assert(array->h.hi_tag() == ARRAY_TYPE);
10 return array->data()[slot];
13 inline void factor_vm::set_array_nth(array *array, cell slot, cell value)
16 assert(slot < array_capacity(array));
17 assert(array->h.hi_tag() == ARRAY_TYPE);
18 check_tagged_pointer(value);
20 cell *slot_ptr = &array->data()[slot];
22 write_barrier(slot_ptr);
25 struct growable_array {
27 gc_root<array> elements;
29 explicit growable_array(factor_vm *myvm, cell capacity = 10) : count(0), elements(myvm->allot_array(capacity,F),myvm) {}
32 void append(array *elts);