[m-dev.] trivial diff: s/Word/MR_Word/ in compiler/trace.m

Fergus Henderson fjh at cs.mu.OZ.AU
Wed Nov 8 02:17:24 AEDT 2000


Estimated hours taken: 0.25

compiler/trace.m:
	s/Word/MR_Word/g

Workspace: /home/pgrad/fjh/ws/hg
Index: compiler/trace.m
===================================================================
RCS file: /home/mercury1/repository/mercury/compiler/trace.m,v
retrieving revision 1.37
diff -u -d -r1.37 trace.m
--- compiler/trace.m	2000/10/13 04:05:17	1.37
+++ compiler/trace.m	2000/11/07 15:06:17
@@ -493,7 +493,7 @@
 			LayoutAddrStr),
 		string__append_list([
 			FillThreeSlots, "\n",
-			"\t\t", RedoLayoutStr, " = (Word) (const Word *) &",
+			"\t\t", RedoLayoutStr, " = (MR_Word) (const MR_Word *) &",
 			LayoutAddrStr, ";"
 		], FillFourSlots),
 		MaybeLayoutLabel = yes(RedoLayoutLabel)
@@ -527,7 +527,7 @@
 		trace__stackref_to_string(MaxfrLval, MaxfrLvalStr),
 		string__append_list([
 			FillSixSlots,
-			"\n\t\t", MaxfrLvalStr, " = (Word) MR_maxfr;"
+			"\n\t\t", MaxfrLvalStr, " = (MR_Word) MR_maxfr;"
 		], FillCondSlots)
 	;
 		MaybeMaxfrLval = no,

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