[m-rev.] [reuse] diff: files erronuously touched

[Nancy Mazur]

Hi,


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


Estimated hours taken: 1.10
Branches: reuse


mercury_compile.m:
	When trans_opt-files are to be generated, make sure to 
	go to the middle-pass too, as reuse-analysis is performed
	only in that pass. 


Index: mercury_compile.m
===================================================================
RCS file: /home/mercury1/repository/mercury/compiler/mercury_compile.m,v
retrieving revision 1.175.2.23
diff -u -r1.175.2.23 mercury_compile.m
--- mercury_compile.m	2001/08/07 09:36:35	1.175.2.23
+++ mercury_compile.m	2001/08/10 16:11:34
@@ -1000,8 +1000,10 @@
 	    ; { MakeOptInt = yes } ->
 		% only run up to typechecking when making the .opt file
 		[]
-%	    ; { MakeTransOptInt = yes } ->
-%	    	mercury_compile__output_trans_opt_file(HLDS21)
+	    ; { MakeTransOptInt = yes } ->
+		mercury_compile__middle_pass(ModuleName, HLDS21, HLDS_T,
+			_DeepProfilingStructures),
+	    	mercury_compile__output_trans_opt_file(HLDS_T)
 	    ;
 		mercury_compile__maybe_output_prof_call_graph(HLDS21,
 			Verbose, Stats, HLDS25),
@@ -1031,9 +1033,6 @@
 				Verbose, MaybeRLFile),
 		    ( { AditiOnly = yes } ->
 			{ HLDS = HLDS50 }
-		    ; { MakeTransOptInt = yes } -> 
-			{ HLDS = HLDS50 },
-			mercury_compile__output_trans_opt_file(HLDS50)
 		    ; { Target = il } ->
 			{ HLDS = HLDS50 },
 			mercury_compile__mlds_backend(HLDS, MLDS),
--------------------------------------------------------------------------
mercury-reviews mailing list
post:  mercury-reviews at cs.mu.oz.au
administrative address: owner-mercury-reviews at cs.mu.oz.au
unsubscribe: Address: mercury-reviews-request at cs.mu.oz.au Message: unsubscribe
subscribe:   Address: mercury-reviews-request at cs.mu.oz.au Message: subscribe
--------------------------------------------------------------------------