[m-rev.] for review: bugfix for foreign_proc IL

[Peter Ross]

On Thu, Jul 11, 2002 at 04:55:26PM +1000, Tyson Dowd wrote:
> Index: compiler/ml_code_gen.m
> ===================================================================
> RCS file: /home/mercury1/repository/mercury/compiler/ml_code_gen.m,v
> retrieving revision 1.120
> diff -u -r1.120 ml_code_gen.m
> --- compiler/ml_code_gen.m	30 Jun 2002 17:06:26 -0000	1.120
> +++ compiler/ml_code_gen.m	11 Jul 2002 06:11:56 -0000
> @@ -2547,8 +2552,15 @@
>  		(pred(Var::in, MLDS_Defn::out, Box0::in, Box::out) is det :- 
>  			map__lookup(HeadVarTypes, Var, Type),
>  			VarName = ml_gen_var_name(VarSet, Var),
> -			VarName = mlds__var_name(VarNameString, _MangleInt),
> -			NonMangledVarName = mlds__var_name(VarNameString, no),
> +
> +			map__lookup(ArgVarDataMap, Var, MaybeVarName),
> +			( MaybeVarName = yes(UserVarNameString - _) ->
> +				NonMangledVarName = 
> +					mlds__var_name(UserVarNameString, no)
> +			;
> +				error("ml_gen_ordinary_pragma_il_proc: no variable name for var")

Change this to call sorry/2.

> +			),
> +

Otherwise it looks fine.
--------------------------------------------------------------------------
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
--------------------------------------------------------------------------