From 2373f76c36193cd94bbb6707dc0ec0cfcae3ee75 Mon Sep 17 00:00:00 2001 From: Alain Frisch Date: Tue, 17 Sep 2013 11:54:31 +0000 Subject: #6180: efficient creation of uninitialized float arrays. git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@14156 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02 --- stdlib/array.ml | 1 + 1 file changed, 1 insertion(+) (limited to 'stdlib/array.ml') diff --git a/stdlib/array.ml b/stdlib/array.ml index 68c203315..1990a78b8 100644 --- a/stdlib/array.ml +++ b/stdlib/array.ml @@ -25,6 +25,7 @@ external append_prim : 'a array -> 'a array -> 'a array = "caml_array_append" external concat : 'a array list -> 'a array = "caml_array_concat" external unsafe_blit : 'a array -> int -> 'a array -> int -> int -> unit = "caml_array_blit" +external make_float: int -> float array = "caml_make_float_vect" let init l f = if l = 0 then [||] else -- cgit v1.2.3-70-g09d2