[m-rev.] diff: fix hlc link problem

[Simon Taylor]

On 18-Jan-2002, Zoltan Somogyi <zs at cs.mu.OZ.AU> wrote:
> trace/mercury_trace_vars.c:
> 	Fix a link problem in hlc grades by using the actual name of a
> 	compiler-generated TypeCtorInfo structure.
 
> Index: mercury_trace_vars.c
> ===================================================================
> RCS file: /home/mercury1/repository/mercury/trace/mercury_trace_vars.c,v
> retrieving revision 1.30
> diff -u -b -r1.30 mercury_trace_vars.c
> --- mercury_trace_vars.c	2002/01/12 09:08:15	1.30
> +++ mercury_trace_vars.c	2002/01/17 15:51:11
> @@ -662,10 +662,16 @@
>  ** current typeinfo optimization scheme.
>  */
>  
> -MR_DECLARE_TYPE_CTOR_INFO_STRUCT(MR_type_ctor_info_name(mdb__util, unbound, 0));
> +#ifdef	MR_HIGHLEVEL_CODE
> +  #define unbound_ctor_name	mdb__util__mdb__util__type_ctor_info_unbound_0
> +#else
> +  #define unbound_ctor_name	MR_type_ctor_info_name(mdb__util, unbound, 0)
> +#endif
> +
> +MR_DECLARE_TYPE_CTOR_INFO_STRUCT(unbound_ctor_name);
> +
>  static
> -MR_static_type_info_arity_0(MR_unbound_typeinfo_struct,
> -	&MR_type_ctor_info_name(mdb__util, unbound, 0));
> +MR_static_type_info_arity_0(MR_unbound_typeinfo_struct, &unbound_ctor_name);

Wouldn't it be better to make `MR_type_ctor_info_name' work properly
with MR_HIGHLEVEL_CODE? Looking at runtime/mercury_type_info.h, it's
supposed to.

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