diff: fix mode error for sicstus

David Glen JEFFERY dgj at cs.mu.OZ.AU
Wed Feb 4 18:16:34 AEDT 1998


Hi,

Here's a small fix that I just committed.

Estimated hours taken: 1


compiler/make_hlds.m:
	Re-order two calls so there is no mode error under sicstus.

Index: make_hlds.m
===================================================================
RCS file: /home/staff/zs/imp/mercury/compiler/make_hlds.m,v
retrieving revision 1.259
diff -u -r1.259 make_hlds.m
--- make_hlds.m	1998/02/03 07:03:07	1.259
+++ make_hlds.m	1998/02/04 06:38:20
@@ -3715,9 +3715,9 @@
 		{ qual_info_set_mq_info(Info0, MQInfo1, Info1) },
 		{ parse_dcg_pred_goal(GoalTerm, VarSet0, ParsedGoal,
 			DCG0, DCGn, VarSet1) },
-		{ make_fresh_arg_vars(Vars1, VarSet1, Vars, VarSet2) },
 		{ list__append(Vars0,
 			[term__variable(DCG0), term__variable(DCGn)], Vars1) },
+		{ make_fresh_arg_vars(Vars1, VarSet1, Vars, VarSet2) },
 		{ map__init(Substitution) },
 		transform_goal(ParsedGoal, VarSet2, Substitution,
 			HLDS_Goal0, VarSet3, Info1, Info2),
cvs diff: Diffing notes

love and cuddles,
dgj
-- 
David Jeffery (dgj at cs.mu.oz.au) |  Marge: Did you just call everyone "chicken"?
MEngSc student,                 |  Homer: Noooo.  I swear on this Bible!
Department of Computer Science  |  Marge: That's not a Bible; that's a book of
University of Melbourne         |         carpet samples!
Australia                       |  Homer: Ooooh... Fuzzy.



More information about the developers mailing list