diff: switch detection progress messages

[Fergus Henderson]

Estimated hours taken: 0.25

compiler/switch_detection.m:
compiler/mercury_compile.m:
	Output verbose progress messages during switch detection.

Index: mercury_compile.m
===================================================================
RCS file: /home/staff/zs/imp/mercury/compiler/mercury_compile.m,v
retrieving revision 1.44
diff -u -r1.44 mercury_compile.m
--- mercury_compile.m	1997/06/29 23:10:59	1.44
+++ mercury_compile.m	1997/07/07 12:02:26
@@ -840,10 +840,10 @@
 :- mode mercury_compile__detect_switches(in, in, in, out, di, uo) is det.
 
 mercury_compile__detect_switches(HLDS0, Verbose, Stats, HLDS) -->
-	maybe_write_string(Verbose, "% Detecting switches..."),
+	maybe_write_string(Verbose, "% Detecting switches...\n"),
 	maybe_flush_output(Verbose),
 	detect_switches(HLDS0, HLDS),
-	maybe_write_string(Verbose, " done.\n"),
+	maybe_write_string(Verbose, "% done.\n"),
 	maybe_report_stats(Stats).
 
 :- pred mercury_compile__detect_cse(module_info, bool, bool, module_info,
Index: switch_detection.m
===================================================================
RCS file: /home/staff/zs/imp/mercury/compiler/switch_detection.m,v
retrieving revision 1.70
diff -u -r1.70 switch_detection.m
--- switch_detection.m	1997/05/11 10:52:53	1.70
+++ switch_detection.m	1997/07/04 18:54:57
@@ -31,6 +31,7 @@
 
 :- import_module hlds_goal, hlds_data, prog_data, instmap.
 :- import_module modes, mode_util, type_util, det_util.
+:- import_module passes_aux.
 :- import_module char, int, list, assoc_list, map, set, std_util, term, require.
 
 %-----------------------------------------------------------------------------%
@@ -57,10 +58,11 @@
 	io__state, io__state).
 :- mode detect_switches_in_pred(in, in, in, out, di, uo) is det.
 
-detect_switches_in_pred(PredId, PredInfo0, ModuleInfo0, ModuleInfo,
-		IOstate, IOstate) :-
-	pred_info_non_imported_procids(PredInfo0, ProcIds),
-	detect_switches_in_procs(ProcIds, PredId, ModuleInfo0, ModuleInfo).
+detect_switches_in_pred(PredId, PredInfo0, ModuleInfo0, ModuleInfo) -->
+	write_pred_progress_message("% Detecting switches in ", PredId,
+		ModuleInfo0),
+	{ pred_info_non_imported_procids(PredInfo0, ProcIds) },
+	{ detect_switches_in_procs(ProcIds, PredId, ModuleInfo0, ModuleInfo) }.
 
 :- pred detect_switches_in_procs(list(proc_id), pred_id,
 	module_info, module_info).

-- 
Fergus Henderson <fjh at cs.mu.oz.au>   |  "I have always known that the pursuit
WWW: <http://www.cs.mu.oz.au/~fjh>   |  of excellence is a lethal habit"
PGP: finger fjh at 128.250.37.3         |     -- the last words of T. S. Garp.