Add cache information to mpipeline

ocaml · Dec 5, 2023 · d3ec88e · d3ec88e
1 parent bebff9e
commit d3ec88e
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 0 deletions.
diff --git a/src/kernel/mpipeline.ml b/src/kernel/mpipeline.ml
@@ -350,3 +350,13 @@ let timing_information t = [
   "typer"  , !(t.typer_time);
   "error"  , !(t.error_time);
 ]
+
+let cache_information t =
+  let phase = ("phase", [
+  "reader" , !(t.reader_cache_hit);
+  "ppx"    , !(t.ppx_cache_hit);
+  ]) in
+  let cmt = ("cmt", Cmt_cache.get_cache_stats ()) in
+  let cmi = ("cmi", Cmi_cache.get_cache_stats ()) in
+  let () = Cmt_cache.clear_cache_stats (); Cmi_cache.clear_cache_stats () in
+  [phase; cmt; cmi]
diff --git a/src/kernel/mpipeline.mli b/src/kernel/mpipeline.mli
@@ -26,3 +26,4 @@ val typer_result : t -> Mtyper.result
 val typer_errors : t -> exn list
 
 val timing_information : t -> (string * float) list
+val cache_information : t -> (string * (string * bool) list) list
Original file line number	Diff line number	Diff line change
Expand Up		@@ -26,3 +26,4 @@ val typer_result : t -> Mtyper.result
		val typer_errors : t -> exn list

		val timing_information : t -> (string * float) list
		val cache_information : t -> (string * (string * bool) list) list