factor/vm/arrays.hpp

44 lines
876 B
C++
Raw Normal View History

2009-05-04 02:46:13 -04:00
namespace factor
{
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);
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
}