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

gc metrics: count in bytes, not words

Browse source
This commit is contained in:
Simon Cruanes 2022-03-28 14:31:01 -04:00
parent fdd4582a2f
commit 46487f3997
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 10 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
src/opentelemetry.ml
View file

@ -669,9 +669,15 @@ end
These metrics are emitted after each GC collection. *)
module GC_metrics = struct
let bytes_per_word = Sys.word_size / 8
(** Basic setup: a few stats *)
let basic_setup () : unit =
let last = ref (Timestamp_ns.now_unix_ns()) in
let word_to_bytes n = n * bytes_per_word in
let word_to_bytes_f n = n *. float bytes_per_word in
let emit() =
let gc = Gc.quick_stat () in
let start_time_unix_nano = !last in
@ -679,13 +685,13 @@ module GC_metrics = struct
Metrics.(
emit
[
gauge ~name:"ocaml.gc.major_heap_words" ~unit_:"words"
[ int gc.Gc.heap_words ];
gauge ~name:"ocaml.gc.major_heap_words" ~unit_:"B"
[ int (word_to_bytes gc.Gc.heap_words) ];
sum ~name:"ocaml.gc_minor_allocated"
~aggregation_temporality:Metrics.Aggregation_temporality_cumulative
~is_monotonic:true
~unit_:"words"
[ float ~start_time_unix_nano gc.Gc.minor_words ];
~unit_:"B"
[ float ~start_time_unix_nano (word_to_bytes_f gc.Gc.minor_words) ];
sum ~name:"ocaml.gc.minor-collections"
~aggregation_temporality:Metrics.Aggregation_temporality_cumulative
~is_monotonic:true