[m-dev.] diff: switch detection progress messages

[Fergus Henderson]

Fergus Henderson, you wrote:
> 
> Estimated hours taken: 0.25
> 
> compiler/switch_detection.m:
> compiler/mercury_compile.m:
> 	Output verbose progress messages during switch detection.

Hmm... let me try that again.  The messages were just a bit _too_
verbose.

Index: switch_detection.m
===================================================================
RCS file: /home/staff/zs/imp/mercury/compiler/switch_detection.m,v
retrieving revision 1.71
diff -u -r1.71 switch_detection.m
--- switch_detection.m	1997/07/07 12:05:04	1.71
+++ switch_detection.m	1997/07/07 16:40:35
@@ -59,9 +59,13 @@
 :- mode detect_switches_in_pred(in, in, in, out, di, uo) is det.
 
 detect_switches_in_pred(PredId, PredInfo0, ModuleInfo0, ModuleInfo) -->
-	write_pred_progress_message("% Detecting switches in ", PredId,
-		ModuleInfo0),
 	{ pred_info_non_imported_procids(PredInfo0, ProcIds) },
+	( { ProcIds \= [] } ->
+		write_pred_progress_message("% Detecting switches in ", PredId,
+			ModuleInfo0)
+	;
+		[]
+	),
 	{ detect_switches_in_procs(ProcIds, PredId, ModuleInfo0, ModuleInfo) }.
 
 :- pred detect_switches_in_procs(list(proc_id), pred_id,

-- 
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.