add create_float_array and deprecate make_float_array

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

3 files changed, 18 insertions, 7 deletions

diff --git a/stdlib/array.ml b/stdlib/array.ml
index 243eeade17..43e4f768d8 100644
--- a/stdlib/array.ml
+++ b/stdlib/array.ml
@@ -25,7 +25,8 @@ 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"
+external create_float: int -> float array = "caml_make_float_vect"
+let make_float = create_float
 
 let init l f =
   if l = 0 then [||] else
diff --git a/stdlib/array.mli b/stdlib/array.mli
index 7580f7e754..c2edadbf8a 100644
--- a/stdlib/array.mli
+++ b/stdlib/array.mli
@@ -152,10 +152,14 @@ val fold_right : ('b -> 'a -> 'a) -> 'b array -> 'a -> 'a
    [f a.(0) (f a.(1) ( ... (f a.(n-1) x) ...))],
    where [n] is the length of the array [a]. *)
 
-external make_float: int -> float array = "caml_make_float_vect"
-(** [Array.make_float n] returns a fresh float array of length [n],
+external create_float: int -> float array = "caml_make_float_vect"
+(** [Array.create_float n] returns a fresh float array of length [n],
     with uninitialized data.
-    @since 4.02 *)
+    @since 4.03 *)
+
+val make_float: int -> float array
+  [@@ocaml.deprecated "Use Array.create_float instead."]
+(** @deprecated [Array.make_float] is an alias for {!Array.create_float}. *)
 
 (** {6 Sorting} *)
 
diff --git a/stdlib/arrayLabels.mli b/stdlib/arrayLabels.mli
index 8fa55de43e..7df2b8a784 100644
--- a/stdlib/arrayLabels.mli
+++ b/stdlib/arrayLabels.mli
@@ -155,10 +155,16 @@ val fold_right : f:('b -> 'a -> 'a) -> 'b array -> init:'a -> 'a
    [f a.(0) (f a.(1) ( ... (f a.(n-1) x) ...))],
    where [n] is the length of the array [a]. *)
 
-external make_float: int -> float array = "caml_make_float_vect"
-(** [ArrayLabels.make_float n] returns a fresh float array of length [n],
+external create_float: int -> float array = "caml_make_float_vect"
+(** [ArrayLabels.create_float n] returns a fresh float array of length [n],
     with uninitialized data.
-    @since 4.02 *)
+    @since 4.03 *)
+
+val make_float: int -> float array
+  [@@ocaml.deprecated "Use ArrayLabels.create_float instead."]
+(** @deprecated [ArrayLabels.make_float] is an alias for
+    {!ArrayLabels.create_float}. *)
+
 
 (** {6 Sorting} *)