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

fix build for benchs

Browse source
This commit is contained in:
Simon Cruanes 2018-01-21 17:09:30 -06:00
parent c7483ade3b
commit 7df23d0cca
3 changed files with 3 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Makefile
View file

@ -16,7 +16,7 @@ doc:
BENCH_TARGETS=run_benchs.exe run_bench_hash.exe BENCH_TARGETS=run_benchs.exe run_bench_hash.exe
benchs: benchs:
jbuilder build $(addprefix bench/, $(BENCH_TARGETS)) jbuilder build $(addprefix benchs/, $(BENCH_TARGETS))
examples: examples:
jbuilder build examples/id_sexp.exe jbuilder build examples/id_sexp.exe
@ -39,4 +39,4 @@ reindent:
@find src '(' -name '*.ml' -or -name '*.mli' ')' -type f -print0 | xargs -0 echo "reindenting: " @find src '(' -name '*.ml' -or -name '*.mli' ')' -type f -print0 | xargs -0 echo "reindenting: "
@find src '(' -name '*.ml' -or -name '*.mli' ')' -type f -print0 | xargs -0 ocp-indent -i @find src '(' -name '*.ml' -or -name '*.mli' ')' -type f -print0 | xargs -0 ocp-indent -i
.PHONY: all test clean build doc update_next_tag watch .PHONY: all benchs test clean build doc update_next_tag watch

2
benchs/jbuild
View file

@ -2,7 +2,7 @@
(executables (executables
((names (run_benchs run_bench_hash)) ((names (run_benchs run_bench_hash))
(libraries (containers containers.data containers.iter (libraries (containers containers.data containers.iter
containers.thread benchmark gen sequence)) containers.thread benchmark gen sequence qcheck))
(flags (:standard -w +a-4-42-44-48-50-58-32-60@8 -safe-string -color always)) (flags (:standard -w +a-4-42-44-48-50-58-32-60@8 -safe-string -color always))
(ocamlopt_flags (:standard -O3 -color always (ocamlopt_flags (:standard -O3 -color always
-unbox-closures -unbox-closures-factor 20)) -unbox-closures -unbox-closures-factor 20))

14
benchs/run_benchs.ml
View file

@ -513,19 +513,6 @@ module Tbl = struct
let module U = MUT_OF_IMMUT(T) in let module U = MUT_OF_IMMUT(T) in
(module U : MUT with type key = a) (module U : MUT with type key = a)
let flat_hashtbl =
let module T = CCFlatHashtbl.Make(CCInt) in
let module U = struct
type key = int
type 'a t = 'a T.t
let name = "ccflat_hashtbl"
let create = T.create
let find = T.find_exn
let add = T.add
let replace = T.add
end in
(module U : INT_MUT)
let trie : (module MUT with type key = string) = let trie : (module MUT with type key = string) =
let module T = struct let module T = struct
let name = "trie(string)" let name = "trie(string)"
@ -584,7 +571,6 @@ module Tbl = struct
(* ; poly_hashtbl *) (* ; poly_hashtbl *)
; map Int ; map Int
; wbt Int ; wbt Int
; flat_hashtbl
; hashtrie Int ; hashtrie Int
; hashtrie_mut Int ; hashtrie_mut Int
(* ; hamt Int *) (* ; hamt Int *)