[m-dev.] diff: add MR_ prefixes to compiler/export.m

Fergus Henderson fjh at cs.mu.OZ.AU
Wed Dec 6 22:35:18 AEDT 2000


Estimated hours taken: 0.25

compiler/export.m:
	Add some missing `MR_' prefixes.

Workspace: /home/pgrad/fjh/ws/hg
Index: compiler/export.m
===================================================================
RCS file: /home/mercury1/repository/mercury/compiler/export.m,v
retrieving revision 1.43
diff -u -d -r1.43 export.m
--- compiler/export.m	2000/11/25 00:59:02	1.43
+++ compiler/export.m	2000/12/06 03:59:36
@@ -171,7 +171,7 @@
 	%		/* MR_call_engine()				  */
 	%	MR_restore_transient_registers();
 	% #if SEMIDET
-	%	if (!r1) {
+	%	if (!MR_r1) {
 	%		MR_restore_regs_from_mem(c_regs);
 	%		return FALSE;
 	%	}
@@ -325,7 +325,7 @@
 		C_RetType = "bool",
 		MaybeDeclareRetval = "",
 		string__append_list([
-			"\tif (!r1) {\n",
+			"\tif (!MR_r1) {\n",
 			"\t\tMR_restore_regs_from_mem(c_regs);\n",
 			"\treturn FALSE;\n",
 			"\t}\n"
@@ -472,9 +472,9 @@
 			% XXX This magic number can't be good
 		RegNum > 32 
 	->
-		string__append_list(["r(", RegNumString, ")"], RegName)
+		string__append_list(["MR_r(", RegNumString, ")"], RegName)
 	;
-		string__append("r", RegNumString, RegName)
+		string__append("MR_r", RegNumString, RegName)
 	).
 
 convert_type_to_mercury(Rval, Type, ConvertedRval) :-	

-- 
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