diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 2001-11-19 15:37:19 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 2001-11-19 15:37:19 +0000 |
| commit | d3db3052c3b37fe209a475a3b2405a99486e6fd4 (patch) | |
| tree | 1b66ecefcbece351ada04dadb75383bc9573d209 | |
| parent | af5ee6951f8c8add254d159d9b26519f58de724a (diff) | |
| download | ocaml-d3db3052c3b37fe209a475a3b2405a99486e6fd4.tar.gz | |
Bug dans l'interface fonctorielle pour add et resize
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@4021 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
| -rw-r--r-- | stdlib/hashtbl.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/stdlib/hashtbl.ml b/stdlib/hashtbl.ml index 41a9b5ab2c..a4834f59a7 100644 --- a/stdlib/hashtbl.ml +++ b/stdlib/hashtbl.ml @@ -197,7 +197,7 @@ module Make(H: HashedType): (S with type key = H.t) = let bucket = Cons(key, info, h.data.(i)) in h.data.(i) <- bucket; h.size <- succ h.size; - if h.size > Array.length h.data lsl 1 then resize hash h + if h.size > Array.length h.data lsl 1 then resize H.hash h let remove h key = let rec remove_bucket = function @@ -255,7 +255,7 @@ module Make(H: HashedType): (S with type key = H.t) = with Not_found -> h.data.(i) <- Cons(key, info, l); h.size <- succ h.size; - if h.size > Array.length h.data lsl 1 then resize hash h + if h.size > Array.length h.data lsl 1 then resize H.hash h let mem h key = let rec mem_in_bucket = function |