package magic-trace

You can search for identifiers within the package.

in-package search v0.2.0

Collects and displays high-resolution traces of what a process is doing

Install

Dune Dependency

magic-trace.org Readme MIT License Edit opam file Versions (1)

Authors

J

Jane Street Group, LLC

Maintainers

J

Jane Street developers

Sources

v1.0.1.tar.gz

sha256=77b2e4b3bc769910656d0fdee4839250548aa49486fd3554f6c057f1d64abe99

sha512=1f111db6348673c22a110611182a92c8aa999668dc077c44bc4abcaa72ccb197899ff2577047888627b50fcc9890824de6c82b4fe9f06129190b8b487ec3f716

doc/src/magic-trace.magic_trace_lib/boot_time.ml.html

Source file `boot_time.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
open! Core

external clock_gettime_perf_ns : unit -> int = "magic_clock_gettime_perf_ns"

let time_ns_of_boot_in_perf_time () =
  let perf_ns =
    try clock_gettime_perf_ns () with
    | _ ->
      (* CR-soon tbrindus: this raises in CI, and [am_running_inline_test] and
         [am_running_test] don't seem to be set within @runtest. *)
      0
  in
  let realtime_ns = Time_ns.to_int_ns_since_epoch (Time_ns.now ()) in
  Time_ns.sub
    (Time_ns.of_int63_ns_since_epoch (Int63.of_int realtime_ns))
    (Time_ns.Span.of_int_ns perf_ns)
;;