From 4a1fa04e5f57ad56e35aae8e9ff278bf1133889a Mon Sep 17 00:00:00 2001
From: Stavros Aronis <aronisstav@gmail.com>
Date: Mon, 5 Mar 2012 11:39:28 +0100
Subject: Change --time to --statistics and include more info

---
 lib/dialyzer/src/dialyzer_coordinator.erl | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'lib/dialyzer/src/dialyzer_coordinator.erl')

diff --git a/lib/dialyzer/src/dialyzer_coordinator.erl b/lib/dialyzer/src/dialyzer_coordinator.erl
index 490cfb8d49..63b2d8c3f2 100644
--- a/lib/dialyzer/src/dialyzer_coordinator.erl
+++ b/lib/dialyzer/src/dialyzer_coordinator.erl
@@ -105,6 +105,12 @@ spawn_jobs(Mode, Jobs, InitData) when
 	Count + 1
     end,
   JobCount = lists:foldl(Fold, 0, Jobs),
+  Unit =
+    case Mode of
+      'typesig'  -> "SCCs";
+      'dataflow' -> "modules"
+    end,
+  dialyzer_timing:send_size_info(JobCount, Unit),
   #state{active = JobCount, result = [], init_data = InitData};
 spawn_jobs(Mode, Jobs, InitData) when
     Mode =:= 'compile'; Mode =:= 'warnings' ->
@@ -122,6 +128,7 @@ spawn_jobs(Mode, Jobs, InitData) when
   InitTickets = 4*CPUs,
   {Tickets, Queue, JobCount} =
     lists:foldl(Fold, {InitTickets, queue:new(), 0}, Jobs),
+  dialyzer_timing:send_size_info(JobCount, "modules"),
   InitResult =
     case Mode of
       'warnings' -> [];
-- 
cgit v1.2.3