[m-rev.] for review: fix .NET compiler command lines

[Simon Taylor]

Estimated hours taken: 0.25
Branches: main, release

compiler/compile_target_code.m:
	Apply a patch to the MSVC command line for compiling
	Managed C++, which Fergus previous applied in Mmake.rules -
	s/-link -noentry mscoree.lib -dll/\/LD/

	Fill in the options for debugging for .NET compilers.

	Fix missing spaces in command lines.

Index: compile_target_code.m
===================================================================
RCS file: /home/mercury1/repository/mercury/compiler/compile_target_code.m,v
retrieving revision 1.25
diff -u -u -r1.25 compile_target_code.m
--- compile_target_code.m	31 Oct 2002 14:47:00 -0000	1.25
+++ compile_target_code.m	12 Nov 2002 14:41:13 -0000
@@ -211,7 +211,7 @@
 	{ join_string_list(MCPPFlagsList, "", "", " ", MCPPFlags) },
 	globals__io_lookup_bool_option(target_debug, Debug),
 	{ Debug = yes ->
-		DebugOpt = "" % XXX
+		DebugOpt = "/Zi "
 	;
 		DebugOpt = ""
 	},
@@ -230,7 +230,7 @@
 
 	{ string__append_list([MCPP, " -CLR ", DebugOpt, InclOpts,
 		DLLDirOpts, MCPPFlags, " ", MCPPFileName,
-		"-link -noentry mscoree.lib -dll -out:", DLLFileName],
+		" /LD -out:", DLLFileName],
 		Command) },
 	invoke_system_command(ErrorStream, verbose_commands,
 		Command, Succeeded).
@@ -246,7 +246,7 @@
 	{ join_string_list(CSCFlagsList, "", "", " ", CSCFlags) },
 	globals__io_lookup_bool_option(target_debug, Debug),
 	{ Debug = yes ->
-		DebugOpt = "" % XXX
+		DebugOpt = "/debug+ /debug:full"
 	;
 		DebugOpt = ""
 	},
@@ -258,8 +258,8 @@
 	 	(func(DLLDir) = ["/lib:", DLLDir, " "]), DLLDirs))) },
 
 	{ string__append_list([CSC, " -CLR ", DebugOpt,
-		" /t:library ", DLLDirOpts, CSCFlags, " ",
-		" /out:", DLLFileName, CSharpFileName], Command) },
+		" /t:library ", DLLDirOpts, CSCFlags,
+		" /out:", DLLFileName, " ", CSharpFileName], Command) },
 	invoke_system_command(ErrorStream, verbose_commands,
 		Command, Succeeded).
 
--------------------------------------------------------------------------
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
--------------------------------------------------------------------------