[m-rev.] diff: fix RTTI bug with reserved addrs

[Fergus Henderson]

Estimated hours taken: 1
Branches: main

compiler/rtti_to_mlds.m:
	Fix a bug in Zoltan's recent change, which broke things with
	`--num-reserved-addresses 1 --tags none'.

Workspace: /home/mars/fjh/ws4/mercury
Index: compiler/rtti_to_mlds.m
===================================================================
RCS file: /home/mercury1/repository/mercury/compiler/rtti_to_mlds.m,v
retrieving revision 1.33
diff -u -d -r1.33 rtti_to_mlds.m
--- compiler/rtti_to_mlds.m	8 Aug 2002 07:21:32 -0000	1.33
+++ compiler/rtti_to_mlds.m	26 Oct 2002 15:27:17 -0000
@@ -774,7 +774,7 @@
 		MaybeResFunctor = res_func(ResFunctor),
 		Name = ResFunctor ^ res_name,
 		Init = init_struct([
-			gen_init_builtin_const(Name),
+			gen_init_string(Name),
 			gen_init_int(0),
 			gen_init_builtin_const("MR_TRUE"),
 			gen_init_rtti_name(ModuleName, RttiTypeCtor,
@@ -784,7 +784,7 @@
 		MaybeResFunctor = du_func(DuFunctor),
 		Name = DuFunctor ^ du_name,
 		Init = init_struct([
-			gen_init_builtin_const(Name),
+			gen_init_string(Name),
 			gen_init_int(DuFunctor ^ du_orig_arity),
 			gen_init_builtin_const("MR_TRUE"),
 			gen_init_rtti_name(ModuleName, RttiTypeCtor,

-- 
Fergus Henderson <fjh at cs.mu.oz.au>  |  "I have always known that the pursuit
The University of Melbourne         |  of excellence is a lethal habit"
WWW: <http://www.cs.mu.oz.au/~fjh>  |     -- the last words of T. S. Garp.
--------------------------------------------------------------------------
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
--------------------------------------------------------------------------