mte/unikernel/duniverse/mirage-mtime/unikraft/mirage_mtime.ml
2025-11-11 02:07:51 +01:00

6 lines
249 B
OCaml

(* C stub implemented in mirage-unikraft *)
external elapsed_ns : unit -> int64 = "caml_get_monotonic_time"
external uk_time_tick_ns : unit -> int64 = "uk_time_tick_ns"
let elapsed_ns () = elapsed_ns ()
let period_ns () = Some (uk_time_tick_ns ())