-namespace factor
-{
-
-byte_array *allot_byte_array(cell size);
-
-PRIMITIVE(byte_array);
-PRIMITIVE(uninitialized_byte_array);
-PRIMITIVE(resize_byte_array);
+namespace factor {
struct growable_byte_array {
- cell count;
- gc_root<byte_array> elements;
+ cell count;
+ data_root<byte_array> elements;
- growable_byte_array(cell capacity = 40) : count(0), elements(allot_byte_array(capacity)) { }
+ // Allocates memory
+ growable_byte_array(factor_vm* parent, cell capacity = 40)
+ : count(0), elements(parent->allot_byte_array(capacity), parent) {}
- void append_bytes(void *elts, cell len);
- void append_byte_array(cell elts);
+ void reallot_array(cell count);
+ void grow_bytes(cell len);
+ void append_bytes(void* elts, cell len);
+ void append_byte_array(cell elts);
- void trim();
+ void trim();
};
+// Allocates memory
+template <typename Type>
+byte_array* factor_vm::byte_array_from_value(Type* value) {
+ byte_array* data = allot_uninitialized_array<byte_array>(sizeof(Type));
+ memcpy(data->data<char>(), value, sizeof(Type));
+ return data;
+}
+
}