[m-rev.] diff: fix MLDS nondet pragma c_code bug

[Simon Taylor]

On 30-May-2002, Fergus Henderson <fjh at cs.mu.OZ.AU> wrote:
> Estimated hours taken: 1
> Branches: main
> 
> compiler/ml_code_gen.m:
> 	Fix a bug in the code generation for nondet pragma c_code.
> 	It was not resetting the MR_succeeded variable after each success,
> 	so if the C code did a SUCCEED and then when retried did a FAIL,
> 	then the FAIL was being treated as a SUCCEED_LAST.

> Index: compiler/ml_code_gen.m
> ===================================================================
> RCS file: /home/mercury1/repository/mercury/compiler/ml_code_gen.m,v
> retrieving revision 1.115
> diff -u -d -r1.115 ml_code_gen.m
> --- compiler/ml_code_gen.m	30 May 2002 08:00:03 -0000	1.115
> +++ compiler/ml_code_gen.m	30 May 2002 10:44:25 -0000
> @@ -2168,6 +2168,7 @@
>  	%				CONT();
>  	%			}
>  	%			if (MR_done) break;
> +	%			MR_succeeded = FALSE;
>  	%			<obtain global lock>
>  	%			<user's later_code C code>
>  	%		}

s/FALSE/MR_FALSE/

Simon.
--------------------------------------------------------------------------
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
--------------------------------------------------------------------------