diff options
| author | Alain Frisch <alain@frisch.fr> | 2013-09-17 11:54:31 +0000 |
|---|---|---|
| committer | Alain Frisch <alain@frisch.fr> | 2013-09-17 11:54:31 +0000 |
| commit | 2373f76c36193cd94bbb6707dc0ec0cfcae3ee75 (patch) | |
| tree | 78476c9174a18945211629e6b5539b1ce893ad54 /stdlib/array.ml | |
| parent | 9a4a94436389aebb4265b02f6abe49cb92baffab (diff) | |
#6180: efficient creation of uninitialized float arrays.
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@14156 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'stdlib/array.ml')
| -rw-r--r-- | stdlib/array.ml | 1 |
1 files changed, 1 insertions, 0 deletions
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 |