2009-05-04 02:46:13 -04:00
|
|
|
namespace factor
|
|
|
|
{
|
2009-08-17 16:37:10 -04:00
|
|
|
|
|
|
|
inline cell array_nth(array *array, cell slot)
|
2009-05-04 02:00:30 -04:00
|
|
|
{
|
|
|
|
#ifdef FACTOR_DEBUG
|
|
|
|
assert(slot < array_capacity(array));
|
2009-05-04 05:50:24 -04:00
|
|
|
assert(array->h.hi_tag() == ARRAY_TYPE);
|
2009-05-04 02:00:30 -04:00
|
|
|
#endif
|
|
|
|
return array->data()[slot];
|
|
|
|
}
|
|
|
|
|
2009-09-29 14:53:10 -04:00
|
|
|
inline void factor_vm::set_array_nth(array *array, cell slot, cell value)
|
|
|
|
{
|
|
|
|
#ifdef FACTOR_DEBUG
|
|
|
|
assert(slot < array_capacity(array));
|
|
|
|
assert(array->h.hi_tag() == ARRAY_TYPE);
|
|
|
|
#endif
|
2009-10-13 22:16:04 -04:00
|
|
|
cell *slot_ptr = &array->data()[slot];
|
|
|
|
*slot_ptr = value;
|
|
|
|
write_barrier(slot_ptr);
|
2009-09-29 14:53:10 -04:00
|
|
|
}
|
|
|
|
|
|
|
|
struct growable_array {
|
|
|
|
cell count;
|
2009-11-02 19:10:34 -05:00
|
|
|
data_root<array> elements;
|
2009-09-29 14:53:10 -04:00
|
|
|
|
2009-10-18 21:31:59 -04:00
|
|
|
explicit growable_array(factor_vm *parent, cell capacity = 10) :
|
|
|
|
count(0), elements(parent->allot_array(capacity,false_object),parent) {}
|
2009-09-29 14:53:10 -04:00
|
|
|
|
|
|
|
void add(cell elt);
|
2009-10-14 20:24:23 -04:00
|
|
|
void append(array *elts);
|
2009-09-29 14:53:10 -04:00
|
|
|
void trim();
|
|
|
|
};
|
|
|
|
|
2009-05-04 02:46:13 -04:00
|
|
|
}
|