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

perf(pool): try to inline with_lock

Browse source
This commit is contained in:
Simon Cruanes 2021-03-24 18:44:07 -04:00
parent 178f7dc92f
commit dd1cf2a046
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/threads/CCPool.ml
View file

@ -55,7 +55,7 @@ module Make(P : PARAM) = struct
let set_exn_handler f = pool.exn_handler <- f let set_exn_handler f = pool.exn_handler <- f
let with_lock_ t f = let[@inline] with_lock_ t f =
Mutex.lock t.mutex; Mutex.lock t.mutex;
try try
let x = f t in let x = f t in