[m-dev.] diff: add MR_ prefixes in library/builtin.m

[Fergus Henderson]

Estimated hours taken: 0.25

library/builtin.m:
	Add some missing `MR_' prefixes.

Workspace: /home/pgrad/fjh/ws/hg
Index: library/builtin.m
===================================================================
RCS file: /home/mercury1/repository/mercury/library/builtin.m,v
retrieving revision 1.47
diff -u -d -r1.47 builtin.m
--- library/builtin.m	2000/12/03 02:22:45	1.47
+++ library/builtin.m	2000/12/06 04:00:28
@@ -479,14 +479,14 @@
 {
 	MR_Word value, copy, type_info;
 
-	type_info = r1;
-	value = r2;
+	type_info = MR_r1;
+	value = MR_r2;
 
 	MR_save_transient_registers();
 	copy = MR_deep_copy(&value, (MR_TypeInfo) type_info, NULL, NULL);
 	MR_restore_transient_registers();
 
-	r1 = copy;
+	MR_r1 = copy;
 	MR_proceed();
 }
 MR_END_MODULE
@@ -539,12 +539,12 @@
 	** the io__state contains a map(io__stream, filename).
 	** However, it might not be correct in general...
 	*/
-	r1 = (r1 == r2);
+	MR_r1 = (MR_r1 == MR_r2);
 	MR_proceed();
 
 MR_define_entry(mercury____Compare___builtin__c_pointer_0_0);
-	r1 = (r1 == r2 ? MR_COMPARE_EQUAL :
-			  r1 < r2 ? MR_COMPARE_LESS :
+	MR_r1 = (MR_r1 == MR_r2 ? MR_COMPARE_EQUAL :
+			  MR_r1 < MR_r2 ? MR_COMPARE_LESS :
 			  MR_COMPARE_GREATER);
 	MR_proceed();
 

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