[m-rev.] diff: turn off name mangling on .NET backend

[Peter Ross]

Hi,


===================================================================


Estimated hours taken: 0.25
Branches: main

compiler/mlds_to_il.m:
    There is no need to further mangle an id on the .NET backend, as
    identifiers don't need to consist of just alpha-numeric entities.

Index: compiler/mlds_to_il.m
===================================================================
RCS file: /home/mercury1/repository/mercury/compiler/mlds_to_il.m,v
retrieving revision 1.104
diff -u -r1.104 mlds_to_il.m
--- compiler/mlds_to_il.m	12 Feb 2002 17:06:53 -0000	1.104
+++ compiler/mlds_to_il.m	27 Feb 2002 16:16:06 -0000
@@ -3111,7 +3111,8 @@
 			s(MaybeModuleStr), s(Name),
 			i(Arity), s(PredOrFuncStr), s(MaybeProcIdInt),
 			s(MaybeSeqNumStr)], UnMangledId),
-		llds_out__name_mangle(UnMangledId, Id).
+		Id = UnMangledId.
 
 predlabel_to_id(special_pred(PredName, MaybeModuleName, TypeName, Arity),
 			ProcId, MaybeSeqNum, Id) :-
@@ -3130,7 +3131,8 @@
 		string__format("special_%s%s_%s_%d_%d%s", 
 			[s(MaybeModuleStr), s(PredName), s(TypeName), i(Arity),
 				i(ProcIdInt), s(MaybeSeqNumStr)], UnMangledId),
-		llds_out__name_mangle(UnMangledId, Id).
+		Id = UnMangledId.
 
 
 	% If an mlds__var is not an argument or a local, what is it?

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