From d3bfb7776b9c094a1cbf76529a8d0803beba78cf Mon Sep 17 00:00:00 2001 From: Simon Cruanes Date: Wed, 9 Apr 2025 10:48:18 -0400 Subject: [PATCH] fix compat --- src/fuchsia/write/trace_fuchsia_write.ml | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/src/fuchsia/write/trace_fuchsia_write.ml b/src/fuchsia/write/trace_fuchsia_write.ml index 078deec..ab669e3 100644 --- a/src/fuchsia/write/trace_fuchsia_write.ml +++ b/src/fuchsia/write/trace_fuchsia_write.ml @@ -9,6 +9,9 @@ module Buf_pool = Buf_pool open struct 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 open Util @@ -494,7 +497,7 @@ module Event = struct Buf.add_string buf name; 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 @@ -530,7 +533,7 @@ module Event = struct Buf.add_string buf name; 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