FFI rewrite part 5: return value boxing and callback parameter boxing now uses vregs...

[factor.git] / vm / byte_arrays.cpp

diff --git a/vm/byte_arrays.cpp b/vm/byte_arrays.cpp
index 1986b5d35cea9333491ee228316a1dc74579bcea..d59563d81c448d82b434819fc8f52808c5d0c385 100644 (file)
--- a/vm/byte_arrays.cpp
+++ b/vm/byte_arrays.cpp
@@ -10,6 +10,11 @@ byte_array *factor_vm::allot_byte_array(cell size)
        return array;
 }
 
+VM_C_API cell allot_byte_array(cell size, factor_vm *parent)
+{
+       return tag<byte_array>(parent->allot_byte_array(size));
+}
+
 void factor_vm::primitive_byte_array()
 {
        cell size = unbox_array_size();