Merge pull request #2804 from BuckleScript/remove_deprecated_api

remove deprecated API

Author: bobzhang

jscomp/core/js_runtime_modules.ml

@@ -34,6 +34,7 @@ let format = "Caml_format"
 let string = "Caml_string"
 let bytes = "Caml_bytes"
 let float = "Caml_float"
+let hash_primitive = "Caml_hash_primitive" 
 let hash = "Caml_hash"
 let oo = "Caml_oo"
 let curry = "Curry"

jscomp/core/lam_dispatch_primitive.ml

@@ -796,7 +796,7 @@ let translate loc (prim_name : string)
     | "caml_hash_mix_string"
     | "caml_hash_mix_int"
     | "caml_hash_final_mix"
-    
+      -> call Js_runtime_modules.hash_primitive
     | "caml_hash"
       -> call Js_runtime_modules.hash 
     | "caml_weak_set"

jscomp/others/belt_HashMap.ml

@@ -213,8 +213,6 @@ let fromArray (type a) (type identity) arr ~id:(id:(a,identity) id) =
   done ;
   v
 
-let ofArray = fromArray
-      
 let mergeMany h arr = 
   let hash, eq = Belt_Id.getHashInternal ( C.hash h) , Belt_Id.getEqInternal (C.eq h) in 
   let len = A.length arr in 

jscomp/others/belt_HashMap.mli

@@ -154,6 +154,4 @@ val mergeMany: ('key, 'value, 'id ) t -> ('key * 'value) array -> unit
 val getBucketHistogram: _ t -> int array
 val logStats: _ t -> unit
 
-val ofArray: ('key * 'value) array -> id:('key,'id) id -> ('key, 'value, 'id ) t
-[@@ocaml.deprecated "Use fromArray instead"]
 

jscomp/others/belt_HashMapInt.ml

@@ -196,8 +196,6 @@ let fromArray arr =
   done ;
   v
 
-let ofArray = fromArray
-
 (* TOOD: optimize heuristics for resizing *)  
 let mergeMany h arr =   
   let len = A.length arr in 

jscomp/others/belt_HashMapInt.mli

@@ -47,5 +47,3 @@ val mergeMany: 'a t -> (key * 'a) array -> unit
 val getBucketHistogram: _ t -> int array
 val logStats: _ t -> unit
 
-val ofArray: (key * 'a) array -> 'a t
-[@@ocaml.deprecated "Use fromArray instead"]

jscomp/others/belt_HashMapString.ml

@@ -196,8 +196,6 @@ let fromArray arr =
   done ;
   v
 
-let ofArray = fromArray
-
 (* TOOD: optimize heuristics for resizing *)  
 let mergeMany h arr =   
   let len = A.length arr in 

jscomp/others/belt_HashMapString.mli

@@ -47,5 +47,3 @@ val mergeMany: 'a t -> (key * 'a) array -> unit
 val getBucketHistogram: _ t -> int array
 val logStats: _ t -> unit
 
-val ofArray: (key * 'a) array -> 'a t
-[@@ocaml.deprecated "Use fromArray instead"]

jscomp/others/belt_HashSet.ml

@@ -186,8 +186,6 @@ let fromArray (type a) (type identity) arr ~(id:(a,identity) id)  =
   done ;
   v
 
-let ofArray = fromArray
-
 let mergeMany h arr = 
   let eq, hash = C.eq h, C.hash h in 
   let len = A.length arr in 

jscomp/others/belt_HashSet.mli

@@ -116,9 +116,6 @@ val logStats: _ t -> unit
 
 val toArray: ('a,'id) t -> 'a array
 
-val ofArray: 'a array -> id:('a,'id) id -> ('a,'id) t
-[@@ocaml.deprecated "Use fromArray instead"]
-
 val fromArray: 'a array -> id:('a,'id) id -> ('a,'id) t
 
 val mergeMany: ('a,'id) t -> 'a array -> unit