[m-dev.] [reuse] diff: sr and pa information messages

[Peter Ross]

Hi,


===================================================================


Estimated hours taken: 0.25

mercury_compile.m:
    Print out informative messages for structure reuse and possible
    alias analysis.


Index: mercury_compile.m
===================================================================
RCS file: /home/mercury1/repository/mercury/compiler/mercury_compile.m,v
retrieving revision 1.175.2.4
diff -u -r1.175.2.4 mercury_compile.m
--- mercury_compile.m	2000/09/25 17:03:39	1.175.2.4
+++ mercury_compile.m	2000/10/02 11:43:06
@@ -1638,8 +1638,10 @@
 	( 	
 		{ InferAliases = yes }
 	->
+		maybe_write_string(Verbose, "% Possible alias analysis...\n"),
+		maybe_flush_output(Verbose),
 		pa_run__aliases_pass( HLDS0, HLDS ),
-		maybe_write_string(Verbose, "% Alias analysis done.\n"),
+		maybe_write_string(Verbose, "% done.\n"),
 		maybe_report_stats(Stats)
 	;
 		{ HLDS = HLDS0 }
@@ -1657,12 +1659,10 @@
 	( 	
 		{ StrucReuse = yes }
 	->
-		maybe_write_string(Verbose, 
-				"% Structure-reuse analysis...\n"),
+		maybe_write_string(Verbose, "% Structure-reuse analysis...\n"),
 		maybe_flush_output(Verbose),
 		sr_run__structure_reuse_pass( HLDS0, HLDS), 
-		maybe_write_string(Verbose, 
-				"% Structure-reuse analysis done.\n"),
+		maybe_write_string(Verbose, "% done.\n"),
 		maybe_report_stats(Stats)
 	;
 		{ HLDS = HLDS0 }

--------------------------------------------------------------------------
mercury-developers mailing list
Post messages to:       mercury-developers at cs.mu.oz.au
Administrative Queries: owner-mercury-developers at cs.mu.oz.au
Subscriptions:          mercury-developers-request at cs.mu.oz.au
--------------------------------------------------------------------------