[m-rev.] diff: fix datestamp file bug for --target asm

Fergus Henderson fjh at cs.mu.OZ.AU
Fri Jul 27 13:04:36 AEST 2001


Estimated hours taken: 0.5
Branches: main

compiler/mercury_compile.m:
	Fix a bug in stayl's recent change to add *_date files:
	the option for PIC in the --target asm back-end is `--pic',
	not `--pic-reg'.

Workspace: /home/mars/fjh/ws3/mercury
Index: compiler/mercury_compile.m
===================================================================
RCS file: /home/mercury1/repository/mercury/compiler/mercury_compile.m,v
retrieving revision 1.212
diff -u -d -r1.212 mercury_compile.m
--- compiler/mercury_compile.m	2001/07/20 14:13:46	1.212
+++ compiler/mercury_compile.m	2001/07/27 03:02:40
@@ -843,13 +843,13 @@
 :- mode find_timestamp_files(in, in, out(find_timestamp_file_names)) is det.
 
 find_timestamp_files(TopLevelModuleName, Globals, FindTimestampFiles) :-
-	globals__lookup_bool_option(Globals, pic_reg, PicReg),
+	globals__lookup_bool_option(Globals, pic, Pic),
 	globals__get_target(Globals, CompilationTarget),
 	( CompilationTarget = c, TimestampSuffix = ".c_date"
 	; CompilationTarget = il, TimestampSuffix = ".il_date"
 	; CompilationTarget = java, TimestampSuffix = ".java_date"
 	; CompilationTarget = asm,
-		TimestampSuffix = (PicReg = yes -> ".pic_s_date" ; ".s_date")
+		TimestampSuffix = (Pic = yes -> ".pic_s_date" ; ".s_date")
 	),
 	FindTimestampFiles =
 	    (pred(ModuleName::in, TimestampFiles::out, di, uo) is det -->

-- 
Fergus Henderson <fjh at cs.mu.oz.au>  |  "I have always known that the pursuit
The University of Melbourne         |  of excellence is a lethal habit"
WWW: <http://www.cs.mu.oz.au/~fjh>  |     -- the last words of T. S. Garp.
--------------------------------------------------------------------------
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
--------------------------------------------------------------------------



More information about the reviews mailing list