simon/ocaml-trace
1
0
Fork 0
mirror of https://github.com/ocaml-tracing/ocaml-trace.git synced 2026-03-07 18:37:56 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

break tef: use mtime.now, not a counter, for multiproc

Browse source 
this allows us to correlate timestamps among processes on the same
machine.
This commit is contained in:
Simon Cruanes 2024-08-21 09:15:31 -04:00
parent f8c1d2d972
commit 0b6dc27556
1 changed files with 2 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/tef/trace_tef.ml
View file

@ -15,15 +15,13 @@ module Mock_ = struct
float_of_int x
end
let counter = Mtime_clock.counter ()
(** Now, in microseconds *)
let[@inline] now_us () : float =
if !Mock_.enabled then
Mock_.now_us ()
else (
let t = Mtime_clock.count counter in
Mtime.Span.to_float_ns t /. 1e3
let t = Mtime_clock.now () in
Int64.to_float (Mtime.to_uint64_ns t) /. 1e3
)
let on_tracing_error = ref (fun s -> Printf.eprintf "trace-tef error: %s\n%!" s)