[m-rev.] trivial diff: use --object-file-extension

[Simon Taylor]

Estimated hours taken: 0.1
Branches: main

compiler/make.module_target.m:
	Replace a hard-coded ".o" with the value of
	`--object-file-extension'.

Index: make.module_target.m
===================================================================
RCS file: /home/mercury1/repository/mercury/compiler/make.module_target.m,v
retrieving revision 1.9
diff -u -u -r1.9 make.module_target.m
--- make.module_target.m	2 Jul 2002 06:19:37 -0000	1.9
+++ make.module_target.m	4 Jul 2002 14:16:37 -0000
@@ -670,6 +670,7 @@
 	% `:- pragma foreign_proc' declarations.
 	%
 	globals__io_get_target(CompilationTarget),
+	globals__io_lookup_string_option(object_file_extension, ObjExt),
 	{ ModuleName = Imports ^ module_name },
 	(
 		{ CompilationTarget = asm },
@@ -680,7 +681,7 @@
 			foreign_language_module_name(ModuleName, c), ".c",
 			no, CCodeFileName),
 		module_name_to_file_name(
-			foreign_language_module_name(ModuleName, c), ".o",
+			foreign_language_module_name(ModuleName, c), ObjExt,
 			no, ObjFileName),
 		{ ForeignFiles0 =
 			[foreign_code_file(c, CCodeFileName, ObjFileName) ] }
@@ -704,8 +705,6 @@
 					di, uo) is det -->
 				fact_table_file_name(ModuleName, FactTableFile,
 					".c", FactTableCFile),
-				globals__io_lookup_string_option(
-					object_file_extension, ObjExt),
 				fact_table_file_name(ModuleName, FactTableFile,
 					ObjExt, FactTableObjFile),
 				{ FactTableForeignFile = foreign_code_file(c, 
--------------------------------------------------------------------------
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
--------------------------------------------------------------------------