2009-05-04 02:46:13 -04:00
|
|
|
namespace factor
|
|
|
|
{
|
|
|
|
|
2009-05-04 02:00:30 -04:00
|
|
|
inline static CELL array_nth(F_ARRAY *array, CELL slot)
|
|
|
|
{
|
|
|
|
#ifdef FACTOR_DEBUG
|
|
|
|
assert(slot < array_capacity(array));
|
|
|
|
assert(array->header.hi_tag() == ARRAY_TYPE);
|
|
|
|
#endif
|
|
|
|
return array->data()[slot];
|
|
|
|
}
|
|
|
|
|
|
|
|
inline static void set_array_nth(F_ARRAY *array, CELL slot, CELL value)
|
|
|
|
{
|
|
|
|
#ifdef FACTOR_DEBUG
|
|
|
|
assert(slot < array_capacity(array));
|
|
|
|
assert(array->header.hi_tag() == ARRAY_TYPE);
|
|
|
|
check_tagged_pointer(value);
|
|
|
|
#endif
|
|
|
|
array->data()[slot] = value;
|
|
|
|
write_barrier(array);
|
|
|
|
}
|
|
|
|
|
2009-05-02 05:43:58 -04:00
|
|
|
F_ARRAY *allot_array(CELL capacity, CELL fill);
|
2009-05-02 05:04:19 -04:00
|
|
|
|
|
|
|
CELL allot_array_1(CELL obj);
|
|
|
|
CELL allot_array_2(CELL v1, CELL v2);
|
|
|
|
CELL allot_array_4(CELL v1, CELL v2, CELL v3, CELL v4);
|
|
|
|
|
2009-05-04 02:00:30 -04:00
|
|
|
PRIMITIVE(array);
|
|
|
|
PRIMITIVE(resize_array);
|
2009-05-02 05:04:19 -04:00
|
|
|
|
2009-05-02 10:19:09 -04:00
|
|
|
struct growable_array {
|
2009-05-02 05:04:19 -04:00
|
|
|
CELL count;
|
2009-05-02 10:19:09 -04:00
|
|
|
gc_root<F_ARRAY> array;
|
2009-05-02 05:04:19 -04:00
|
|
|
|
2009-05-02 10:19:09 -04:00
|
|
|
growable_array() : count(0), array(allot_array(2,F)) {}
|
2009-05-02 05:04:19 -04:00
|
|
|
|
2009-05-02 10:19:09 -04:00
|
|
|
void add(CELL elt);
|
|
|
|
void trim();
|
|
|
|
};
|
2009-05-04 02:46:13 -04:00
|
|
|
|
|
|
|
}
|