[m-dev.] diff: fix reuse codegen problem

[Peter Ross]

Hi,


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


Estimated hours taken: 0.5
Branches: main, reuse

compiler/ml_unify_gen.m:
    Change from using the depreceated body binop to the unmkbody unop.


Index: compiler/ml_unify_gen.m
===================================================================
RCS file: /home/mercury1/repository/mercury/compiler/ml_unify_gen.m,v
retrieving revision 1.16.2.8
diff -u -r1.16.2.8 ml_unify_gen.m
--- compiler/ml_unify_gen.m	2001/02/20 10:15:27	1.16.2.8
+++ compiler/ml_unify_gen.m	2001/03/08 09:36:41
@@ -1065,8 +1065,8 @@
 			Var2Rval = lval(Var2Lval)
 		;
 			Var2Rval = mkword(PrimaryTag,
-					binop(body, lval(Var2Lval),
-					ml_gen_mktag(ReusePrimaryTag)))
+					unop(std_unop(unmkbody),
+					lval(Var2Lval)))
 		},
 
 		{ MLDS_Statement = ml_gen_assign(Var1Lval, Var2Rval, Context) },
--------------------------------------------------------------------------
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
--------------------------------------------------------------------------