simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-07 11:45:31 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

bound size of hashtable with Sys.max_rray_length

Browse source
This commit is contained in:
Simon Cruanes 2013-03-04 19:10:06 +01:00
parent 484653fb08
commit d101d913a2
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
pHashtbl.ml
View file

@ -96,7 +96,8 @@ let insert ~eq buckets h key value =
(** Resize the array, by inserting its content into twice as large an array *) (** Resize the array, by inserting its content into twice as large an array *)
let resize ~eq ~hash buckets = let resize ~eq ~hash buckets =
let buckets' = Array.make (Array.length buckets * 2) (my_null ()) in let new_size = min (Array.length buckets * 2 + 1) Sys.max_array_length in
let buckets' = Array.make new_size (my_null ()) in
for i = 0 to Array.length buckets - 1 do for i = 0 to Array.length buckets - 1 do
match buckets.(i) with match buckets.(i) with
| (key, value, Used) -> | (key, value, Used) ->