simon/sidekick
1
0
Fork 0
mirror of https://github.com/c-cube/sidekick.git synced 2025-12-06 11:15:43 -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 begin_with_ (module B:BACKEND) name : probe =
let[@inline never] begin_with_ (module B:BACKEND) name : probe =
Probe {name; start=B.get_ts ()}
let[@inline] begin_ name : probe =
@ -50,11 +50,11 @@ let[@inline] instant name =
B.emit_instant_event ~name ~ts:now ()
(* 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
B.emit_duration_event ~name ~start ~end_:now ()
let exit_with_ b pb =
let[@inline] exit_with_ b pb =
match pb with
| No_probe -> ()
| Probe {name; start} -> exit_full_ b name start