simon/ocaml-trace
1
0
Fork 0
mirror of https://github.com/ocaml-tracing/ocaml-trace.git synced 2026-03-08 03:47:57 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix compat

Browse source
This commit is contained in:
Simon Cruanes 2025-04-09 10:48:18 -04:00
parent 9c6f158c9c
commit d3bfb7776b
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/fuchsia/write/trace_fuchsia_write.ml
View file

@ -9,6 +9,9 @@ module Buf_pool = Buf_pool
open struct open struct
let spf = Printf.sprintf let spf = Printf.sprintf
let[@inline] int64_of_trace_id_ (id : Trace_core.trace_id) : int64 =
Bytes.get_int64_le (Bytes.unsafe_of_string id) 0
end end
open Util open Util
@ -494,7 +497,7 @@ module Event = struct
Buf.add_string buf name; Buf.add_string buf name;
Arguments.encode buf args; Arguments.encode buf args;
Buf.add_i64 buf (String.get_int64_le async_id 0); Buf.add_i64 buf (int64_of_trace_id_ async_id);
() ()
end end
@ -530,7 +533,7 @@ module Event = struct
Buf.add_string buf name; Buf.add_string buf name;
Arguments.encode buf args; Arguments.encode buf args;
Buf.add_i64 buf (String.get_int64_le async_id 0); Buf.add_i64 buf (int64_of_trace_id_ async_id);
() ()
end end
end end