60 lines
1.3 KiB
C++
60 lines
1.3 KiB
C++
#include "master.hpp"
|
|
|
|
F_BYTE_ARRAY *allot_byte_array(CELL size)
|
|
{
|
|
F_BYTE_ARRAY *array = allot_array_internal<F_BYTE_ARRAY>(size);
|
|
memset(array + 1,0,size);
|
|
return array;
|
|
}
|
|
|
|
void primitive_byte_array(void)
|
|
{
|
|
CELL size = unbox_array_size();
|
|
dpush(tag_object(allot_byte_array(size)));
|
|
}
|
|
|
|
void primitive_uninitialized_byte_array(void)
|
|
{
|
|
CELL size = unbox_array_size();
|
|
dpush(tag_object(allot_array_internal<F_BYTE_ARRAY>(size)));
|
|
}
|
|
|
|
void primitive_resize_byte_array(void)
|
|
{
|
|
F_BYTE_ARRAY *array = untag_byte_array(dpop());
|
|
CELL capacity = unbox_array_size();
|
|
dpush(tag_object(reallot_array(array,capacity)));
|
|
}
|
|
|
|
void growable_byte_array::append_bytes(void *elts, CELL len)
|
|
{
|
|
CELL new_size = count + len;
|
|
|
|
if(new_size >= array_capacity(array.untagged()))
|
|
array = reallot_array(array.untagged(),new_size * 2);
|
|
|
|
memcpy((void *)BREF(array.untagged(),count),elts,len);
|
|
|
|
count += len;
|
|
}
|
|
|
|
void growable_byte_array::append_byte_array(CELL byte_array_)
|
|
{
|
|
gc_root<F_BYTE_ARRAY> byte_array(byte_array_);
|
|
|
|
CELL len = array_capacity(byte_array.untagged());
|
|
CELL new_size = count + len;
|
|
|
|
if(new_size >= array_capacity(array.untagged()))
|
|
array = reallot_array(array.untagged(),new_size * 2);
|
|
|
|
memcpy((void *)BREF(array.untagged(),count),byte_array.untagged() + 1,len);
|
|
|
|
count += len;
|
|
}
|
|
|
|
void growable_byte_array::trim()
|
|
{
|
|
array = reallot_array(array.untagged(),count);
|
|
}
|