Merge branch 'cache-2' of https://github.com/majocha/fsharp into cache-2

Author: majocha

src/Compiler/Driver/fsc.fs

@@ -571,6 +571,7 @@ let main1
     if tcConfig.showTimes then
         Caches.CacheMetrics.CaptureStatsAndWriteToConsole() |> disposables.Register
         Activity.Profiling.addConsoleListener () |> disposables.Register
+        Caches.CacheMetrics.CaptureStatsAndWriteToConsole() |> disposables.Register
 
     tcConfig.writeTimesToFile
     |> Option.iter (fun f ->

src/Compiler/Utilities/Caches.fs

@@ -143,6 +143,15 @@ module CacheMetrics =
                 Console.WriteLine(StatsToString())
         }
 
+    let CaptureStatsAndWriteToConsole () =
+        let listener = ListenToAll()
+
+        { new IDisposable with
+            member _.Dispose() =
+                listener.Dispose()
+                Console.WriteLine(StatsToString())
+        }
+
     // Currently the Cache emits telemetry for raw cache events: hits, misses, evictions etc.
     // This type observes those counters and keeps a snapshot of readings. It is used in tests and can be used to print cache stats in debug mode.
     type CacheMetricsListener(cacheTags: TagList) =