Fix conflict

[factor.git] / vm / types.c

diff --git a/vm/types.c b/vm/types.c
index 1afbcd3a4062fb2ef7597851fad0274a658b599c..4a598dc601d5088a9f92bcaab81bc873c6ca09f0 100755 (executable)
--- a/vm/types.c
+++ b/vm/types.c
@@ -243,6 +243,12 @@ void primitive_byte_array(void)
        dpush(tag_object(allot_byte_array(size)));
 }
 
+void primitive_uninitialized_byte_array(void)
+{
+       CELL size = unbox_array_size();
+       dpush(tag_object(allot_byte_array_internal(size)));
+}
+
 F_BYTE_ARRAY *reallot_byte_array(F_BYTE_ARRAY *array, CELL capacity)
 {
        CELL to_copy = array_capacity(array);