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

perf(tef): inlining attrs

Browse source
This commit is contained in:
Simon Cruanes 2021-04-30 18:17:31 -04:00
parent 0242a97327
commit e90b3ec76b
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/util/Profile.ml
View file

@ -34,7 +34,7 @@ let out_ : backend option ref = ref None
let[@inline] enabled () = match !out_ with Some _ -> true | None -> false let[@inline] enabled () = match !out_ with Some _ -> true | None -> false
let begin_with_ (module B:BACKEND) name : probe = let[@inline never] begin_with_ (module B:BACKEND) name : probe =
Probe {name; start=B.get_ts ()} Probe {name; start=B.get_ts ()}
let[@inline] begin_ name : probe = let[@inline] begin_ name : probe =
@ -50,11 +50,11 @@ let[@inline] instant name =
B.emit_instant_event ~name ~ts:now () B.emit_instant_event ~name ~ts:now ()
(* slow path *) (* slow path *)
let exit_full_ (module B : BACKEND) name start = let[@inline never] exit_full_ (module B : BACKEND) name start =
let now = B.get_ts() in let now = B.get_ts() in
B.emit_duration_event ~name ~start ~end_:now () B.emit_duration_event ~name ~start ~end_:now ()
let exit_with_ b pb = let[@inline] exit_with_ b pb =
match pb with match pb with
| No_probe -> () | No_probe -> ()
| Probe {name; start} -> exit_full_ b name start | Probe {name; start} -> exit_full_ b name start