[m-dev.] Diff: fix cut-and-paste error in private_builtin.m

[Fergus Henderson]

That one looks fine too, please commit it.

On 01-Dec-1998, Warwick Harvey <wharvey at cs.monash.edu.au> wrote:
> Estimated hours taken: 0.25
> 
> library/private_builtin.m:
> 	Fixed a cut-and-paste bug where
> 		mercury____Compare___private_builtin__type_info_1_0
> 	incorrectly referenced unify_input1 and unify_input2 rather than
> 	compare_input1 and compare_input2 (they are currently defined to
> 	be the same registers, so the compiled code was still correct).
> 
> 
> Index: library/private_builtin.m
> ===================================================================
> RCS file: /home/mercury1/repository/mercury/library/private_builtin.m,v
> retrieving revision 1.15
> diff -u -r1.15 private_builtin.m
> --- private_builtin.m	1998/11/24 03:57:47	1.15
> +++ private_builtin.m	1998/12/01 03:29:46
> @@ -1426,7 +1426,7 @@
>  	*/
>  	int comp;
>  	save_transient_registers();
> -	comp = MR_compare_type_info(unify_input1, unify_input2);
> +	comp = MR_compare_type_info(compare_input1, compare_input2);
>  	restore_transient_registers();
>  	compare_output = comp;
>  	proceed();
> 
> 
> --------------------------------------------------------------------------
> 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
> --------------------------------------------------------------------------
> 

-- 
Fergus Henderson <fjh at cs.mu.oz.au>  |  "Binaries may die
WWW: <http://www.cs.mu.oz.au/~fjh>  |   but source code lives forever"
PGP: finger fjh at 128.250.37.3        |     -- leaked Microsoft memo.