[m-dev.] trivial diff: MR_string_const

[Zoltan Somogyi]

compiler/llds_out.m:
	Output MR_string_const() instead of string_const(), since the latter
	does not work with -DMR_NO_BACKWARDS_COMPAT.

Zoltan.

cvs diff: Diffing .
Index: llds_out.m
===================================================================
RCS file: /home/mercury1/repository/mercury/compiler/llds_out.m,v
retrieving revision 1.129
diff -u -b -r1.129 llds_out.m
--- llds_out.m	1999/11/04 04:21:00	1.129
+++ llds_out.m	1999/11/11 04:43:22
@@ -3722,14 +3722,14 @@
 	io__write_string("(Float) "),
 	io__write_float(FloatVal).
 output_rval_const(string_const(String)) -->
-	io__write_string("string_const("""),
+	io__write_string("MR_string_const("""),
 	output_c_quoted_string(String),
 	{ string__length(String, StringLength) },
 	io__write_string(""", "),
 	io__write_int(StringLength),
 	io__write_string(")").
 output_rval_const(multi_string_const(Length, String)) -->
-	io__write_string("string_const("""),
+	io__write_string("MR_string_const("""),
 	output_c_quoted_multi_string(Length, String),
 	io__write_string(""", "),
 	io__write_int(Length),
@@ -3794,14 +3794,14 @@
 output_rval_static_const(float_const(FloatVal)) -->
 	io__write_float(FloatVal).
 output_rval_static_const(string_const(String)) -->
-	io__write_string("string_const("""),
+	io__write_string("MR_string_const("""),
 	output_c_quoted_string(String),
 	{ string__length(String, StringLength) },
 	io__write_string(""", "),
 	io__write_int(StringLength),
 	io__write_string(")").
 output_rval_static_const(multi_string_const(Length, String)) -->
-	io__write_string("string_const("""),
+	io__write_string("MR_string_const("""),
 	output_c_quoted_multi_string(Length, String),
 	io__write_string(""", "),
 	io__write_int(Length),
cvs diff: Diffing notes
--------------------------------------------------------------------------
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
--------------------------------------------------------------------------