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

rename some benchs

Browse source
This commit is contained in:
Simon Cruanes 2015-09-11 09:57:56 +02:00
parent 6c0378e16f
commit e30190a7d0
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
benchs/run_benchs.ml
View file

@ -248,7 +248,7 @@ module Tbl = struct
let module U = struct let module U = struct
type key = int type key = int
type 'a t = 'a T.t ref type 'a t = 'a T.t ref
let name = "persistent_hashtbl" let name = "ccpersistent_hashtbl"
let create _ = ref (T.empty ()) let create _ = ref (T.empty ())
let find m k = T.find !m k let find m k = T.find !m k
let add m k v = m := T.replace !m k v let add m k v = m := T.replace !m k v
@ -272,7 +272,7 @@ module Tbl = struct
let module T = struct let module T = struct
type key = int type key = int
type 'a t = (int, 'a) PHashtbl.t type 'a t = (int, 'a) PHashtbl.t
let name = "phashtbl" let name = "cc_phashtbl"
let create i = PHashtbl.create ~hash:CCInt.hash ~eq:CCInt.equal i let create i = PHashtbl.create ~hash:CCInt.hash ~eq:CCInt.equal i
let find = PHashtbl.find let find = PHashtbl.find
let add = PHashtbl.add let add = PHashtbl.add
@ -291,7 +291,7 @@ module Tbl = struct
= fun k -> = fun k ->
let (module K), name = arg_make k in let (module K), name = arg_make k in
let module T = struct let module T = struct
let name = sprintf "wbt(%s)" name let name = sprintf "ccwbt(%s)" name
include CCWBTree.Make(K) include CCWBTree.Make(K)
let find = get_exn let find = get_exn
end in end in