#6180: efficient creation of uninitialized float arrays.

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@14156 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

1 files changed, 10 insertions, 0 deletions

diff --git a/byterun/array.c b/byterun/array.c
index c9d991edd..a8830d58e 100644
--- a/byterun/array.c
+++ b/byterun/array.c
@@ -135,6 +135,16 @@ CAMLprim value caml_array_unsafe_set(value array, value index, value newval)
     return caml_array_unsafe_set_addr(array, index, newval);
 }
 
+CAMLprim value caml_make_float_vect(value len)
+{
+  mlsize_t wsize = Long_val(len) * Double_wosize;
+  if (wsize == 0)
+    return Atom(0);
+  if (wsize > Max_wosize)
+    caml_invalid_argument("Array.make");
+  return caml_alloc(wsize, Double_array_tag);
+}
+
 CAMLprim value caml_make_vect(value len, value init)
 {
   CAMLparam2 (len, init);