3 inline cell array_nth(array* array, cell slot) {
5 FACTOR_ASSERT(slot < array_capacity(array));
6 FACTOR_ASSERT(array->type() == ARRAY_TYPE);
8 return array->data()[slot];
11 inline void factor_vm::set_array_nth(array* array, cell slot, cell value) {
13 FACTOR_ASSERT(slot < array_capacity(array));
14 FACTOR_ASSERT(array->type() == ARRAY_TYPE);
16 cell* slot_ptr = &array->data()[slot];
18 write_barrier(slot_ptr);
21 struct growable_array {
23 data_root<array> elements;
25 growable_array(factor_vm* parent, cell capacity = 10)
27 elements(parent->allot_array(capacity, false_object), parent) {}
30 void append(array* elts);