[m-dev.] trivial diff: fix number of input tuples for aggregates

[Simon Taylor]

Estimated hours taken: 0.1

compiler/rl_out.pp:
	The RL aggregate instruction takes one input tuple, not two.

Index: rl_out.pp
===================================================================
RCS file: /home/staff/zs/imp/mercury/compiler/rl_out.pp,v
retrieving revision 1.6
diff -u -u -r1.6 rl_out.pp
--- rl_out.pp	1999/07/13 08:53:29	1.6
+++ rl_out.pp	1999/07/29 01:10:58
@@ -1456,10 +1456,13 @@
 
 		% Nothing is built on the stack, so this will be enough.
 		{ StackSize = 10 },
-		rl_out__package_exprn(AggCode, 2, generate, OutputSchemaOffset,
-			EmptySchemaOffset, StackSize, Decls, ExprnNum)
+		{ NumParams = 1 },
+		rl_out__package_exprn(AggCode, NumParams, generate,
+			OutputSchemaOffset, EmptySchemaOffset,
+			StackSize, Decls, ExprnNum)
 	;
-		{ error("rl_out__generate_aggregate_exprn: invalid relation schemas") }
+		{ error(
+		"rl_out__generate_aggregate_exprn: invalid relation schemas") }
 	).
 
 	% Generate an expression to compare tuples with the
--------------------------------------------------------------------------
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
--------------------------------------------------------------------------