6 byte_array *factor_vm::allot_byte_array(cell size)
8 byte_array *array = allot_uninitialized_array<byte_array>(size);
9 memset(array + 1,0,size);
13 void factor_vm::primitive_byte_array()
15 cell size = unbox_array_size();
16 ctx->push(tag<byte_array>(allot_byte_array(size)));
19 void factor_vm::primitive_uninitialized_byte_array()
21 cell size = unbox_array_size();
22 ctx->push(tag<byte_array>(allot_uninitialized_array<byte_array>(size)));
25 void factor_vm::primitive_resize_byte_array()
27 data_root<byte_array> array(ctx->pop(),this);
28 array.untag_check(this);
29 cell capacity = unbox_array_size();
30 ctx->push(tag<byte_array>(reallot_array(array.untagged(),capacity)));
33 void growable_byte_array::append_bytes(void *elts, cell len)
35 cell new_size = count + len;
36 factor_vm *parent = elements.parent;
37 if(new_size >= array_capacity(elements.untagged()))
38 elements = parent->reallot_array(elements.untagged(),new_size * 2);
40 memcpy(&elements->data<u8>()[count],elts,len);
45 void growable_byte_array::append_byte_array(cell byte_array_)
47 data_root<byte_array> byte_array(byte_array_,elements.parent);
49 cell len = array_capacity(byte_array.untagged());
50 cell new_size = count + len;
51 factor_vm *parent = elements.parent;
52 if(new_size >= array_capacity(elements.untagged()))
53 elements = parent->reallot_array(elements.untagged(),new_size * 2);
55 memcpy(&elements->data<u8>()[count],byte_array->data<u8>(),len);
60 void growable_byte_array::trim()
62 factor_vm *parent = elements.parent;
63 elements = parent->reallot_array(elements.untagged(),count);