[m-rev.] trivial diff: ml_code_gen.m: avoid unnecessary LLDS imports

[Fergus Henderson]

Branches: main
Estimated hours taken: 0.25

compiler/ml_code_gen.m:
	Avoid some unnecessary imports of LLDS back-end modules.

Workspace: /home/earth/fjh/ws-earth3/mercury
Index: compiler/ml_code_gen.m
===================================================================
RCS file: /home/mercury1/repository/mercury/compiler/ml_code_gen.m,v
retrieving revision 1.103
diff -u -d -r1.103 ml_code_gen.m
--- compiler/ml_code_gen.m	25 Oct 2001 08:35:35 -0000	1.103
+++ compiler/ml_code_gen.m	31 Oct 2001 13:18:58 -0000
@@ -776,10 +776,11 @@
 
 :- import_module ml_type_gen, ml_call_gen, ml_unify_gen, ml_switch_gen.
 :- import_module ml_code_util.
-:- import_module arg_info, llds, llds_out. % XXX needed for pragma foreign code
+:- import_module llds. % XXX needed for pragma foreign code
 :- import_module export, foreign. % XXX needed for pragma foreign code
 :- import_module hlds_pred, hlds_data.
 :- import_module goal_util, type_util, mode_util, builtin_ops, error_util.
+:- import_module c_util.
 :- import_module passes_aux, modules.
 :- import_module globals, options.
 
@@ -2685,7 +2686,7 @@
 	->
 		module_info_pred_info(ModuleInfo, PredId, PredInfo),
 		pred_info_name(PredInfo, Name),
-		llds_out__quote_c_string(Name, MangledName),
+		c_util__quote_string(Name, MangledName),
 		string__append_list(["\tMR_OBTAIN_GLOBAL_LOCK(""",
 			MangledName, """);\n"], ObtainLock),
 		string__append_list(["\tMR_RELEASE_GLOBAL_LOCK(""",

-- 
Fergus Henderson <fjh at cs.mu.oz.au>  | "... it seems to me that 15 years of
The University of Melbourne         | email is plenty for one lifetime."
WWW: <http://www.cs.mu.oz.au/~fjh>  |     -- Prof. Donald E. Knuth
--------------------------------------------------------------------------
mercury-reviews mailing list
post:  mercury-reviews at cs.mu.oz.au
administrative address: owner-mercury-reviews at cs.mu.oz.au
unsubscribe: Address: mercury-reviews-request at cs.mu.oz.au Message: unsubscribe
subscribe:   Address: mercury-reviews-request at cs.mu.oz.au Message: subscribe
--------------------------------------------------------------------------