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

Fergus Henderson fjh at cs.mu.OZ.AU
Sat Nov 25 11:58:45 AEDT 2000


Estimated hours taken: 0.1

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.42
diff -u -d -r1.42 export.m
--- compiler/export.m	2000/11/23 04:32:34	1.42
+++ compiler/export.m	2000/11/25 00:57:28
@@ -147,15 +147,15 @@
 	%		*/
 	%
 	% #if MR_THREAD_SAFE
-	% 	must_finalize_engine = init_thread(MR_use_now);
+	% 	must_finalize_engine = MR_init_thread(MR_use_now);
 	% #endif 
 	%
 	%		/* 
 	%		** restore Mercury's registers that were saved as
 	%		** we entered C from Mercury.  For single threaded
 	%		** programs the process must always start in Mercury
-	%		** so that we can init_engine() etc.  For
-	%		** multi-threaded init_thread (above) takes care
+	%		** so that we can MR_init_engine() etc.  For
+	%		** multi-threaded MR_init_thread (above) takes care
 	%		** of making a new engine if required.
 	%		*/
 	%	MR_restore_registers();
@@ -181,7 +181,7 @@
 	%	<copy output args from registers into *Mercury__Arguments>
 	% #if MR_THREAD_SAFE
 	% 	if (must_finalize_engine) {
-	% 		finalize_thread_engine();
+	% 		MR_finalize_thread_engine();
 	% 	}
 	% #endif 
 	%	MR_restore_regs_from_mem(c_regs);
@@ -226,7 +226,7 @@
 				"\n",
 				"\tMR_save_regs_to_mem(c_regs);\n", 
 				"#if MR_THREAD_SAFE\n",
-				"\tmust_finalize_engine = init_thread(MR_use_now);\n", 
+				"\tmust_finalize_engine = MR_init_thread(MR_use_now);\n", 
 				"#endif\n",
 				"\tMR_restore_registers();\n", 
 				InputArgs,
@@ -238,7 +238,7 @@
 				OutputArgs,
 				"#if MR_THREAD_SAFE\n",
 				"\tif (must_finalize_engine) {\n", 
-				"\t\t finalize_thread_engine();\n", 
+				"\t\t MR_finalize_thread_engine();\n", 
 				"\t}\n", 
 				"#endif\n",
 				"\tMR_restore_regs_from_mem(c_regs);\n", 

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