[m-dev.] trivial diff: fix bug with pragma c_code and --high-level-code

Fergus Henderson fjh at cs.mu.OZ.AU
Tue Jun 6 16:21:07 AEST 2000


Estimated hours taken: 0.1

compiler/ml_code_gen.m:
	Add a `\n' at the end of one of the strings that we generate
	for `pragma c_code' goals.  This fixes a bug where we were
	generating `#line' directives that were not at the start of a line.

Workspace: /home/pgrad/fjh/ws/hg
Index: compiler/ml_code_gen.m
===================================================================
RCS file: /home/mercury1/repository/mercury/compiler/ml_code_gen.m,v
retrieving revision 1.51
diff -u -d -r1.51 ml_code_gen.m
--- compiler/ml_code_gen.m	2000/06/05 00:27:22	1.51
+++ compiler/ml_code_gen.m	2000/06/06 06:13:31
@@ -2059,7 +2059,7 @@
 		},
 		{ string__format(" = %s%s;\n", [s(RHS_Cast), s(ArgName)],
 			AssignFromArgName) },
-		{ string__format("\t%s", [s(LHS_Cast)], AssignTo) },
+		{ string__format("\t%s\n", [s(LHS_Cast)], AssignTo) },
 		{ AssignOutput = [
 			raw_target_code(AssignTo),
 			target_code_output(ArgLval),

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



More information about the developers mailing list