[m-dev.] trivial diff: minor fix to mlds_to_c.m

Fergus Henderson fjh at cs.mu.OZ.AU
Sun Nov 19 02:33:18 AEDT 2000


Estimated hours taken: 0.25

compiler/mlds_to_c.m:
	Fix a cut-and-paste bug: the code for handling `restore_hp'
	instructions was outputting `MR_mark_hp' rather than `MR_restore_hp'.
	Also remove two old XXX comments that are no longer relevant.

Workspace: /home/pgrad/fjh/ws/hg3
Index: compiler/mlds_to_c.m
===================================================================
RCS file: /home/mercury1/repository/mercury/compiler/mlds_to_c.m,v
retrieving revision 1.66
diff -u -d -r1.66 mlds_to_c.m
--- compiler/mlds_to_c.m	2000/11/13 04:25:55	1.66
+++ compiler/mlds_to_c.m	2000/11/18 10:15:06
@@ -2403,7 +2403,7 @@
 
 mlds_output_atomic_stmt(Indent, _FuncInfo, restore_hp(Rval), _) -->
 	mlds_indent(Indent),
-	io__write_string("MR_mark_hp("),
+	io__write_string("MR_restore_hp("),
 	mlds_output_rval(Rval),
 	io__write_string(");\n").
 
@@ -2780,11 +2780,11 @@
 		)
 	->
 		io__write_string("("),
-		mlds_output_bracketed_rval(X), % XXX as float
+		mlds_output_bracketed_rval(X),
 		io__write_string(" "),
 		io__write_string(OpStr),
 		io__write_string(" "),
-		mlds_output_bracketed_rval(Y), % XXX as float
+		mlds_output_bracketed_rval(Y),
 		io__write_string(")")
 	;
 /****

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