swrup/mte
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Browse source
This commit is contained in:
swrup 2025-10-07 15:01:52 +02:00
parent f9f0a7924f
commit 6cfdf079fb
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/binary_formats.ml
View file

@ -12,7 +12,7 @@ let int64_size = 8
module Time = struct module Time = struct
module Absolute = struct module Absolute = struct
type t = { timestamp_us: int64 } type t = { timestamp_us: int64 }
type tNbo = { abs_value_us__: int64 } type t_nbo = { abs_value_us__: int64 }
let size = int64_size let size = int64_size
@ -32,7 +32,7 @@ module Time = struct
module Relative = struct module Relative = struct
type t = { timestamp_us: int64 } type t = { timestamp_us: int64 }
type tNbo = { relValue_us__: int64 } type t_nbo = { rel_value_us__: int64 }
let size = int64_size let size = int64_size
@ -44,8 +44,8 @@ module Time = struct
let nboBin = let nboBin =
let open Bin in let open Bin in
record (fun relValue_us__ -> { relValue_us__ }) record (fun rel_value_us__ -> { rel_value_us__ })
|+ field beint64 (fun t -> t.relValue_us__) |+ field beint64 (fun t -> t.rel_value_us__)
|> sealr |> sealr
end end
end end