[m-dev.] For review: Using MR_TypeCtorInfo for generated type_ctor_infos

[Fergus Henderson]

On 09-Aug-1999, Warwick Harvey <wharvey at cs.monash.edu.au> wrote:
> diff -d -u -r orig/library/std_util.m ./library/std_util.m
> --- orig/library/std_util.m	Mon Jul 19 14:51:00 1999
> +++ ./library/std_util.m	Mon Aug  9 16:08:37 1999
...
> @@ -1451,8 +1441,14 @@
>  	** Several predicates use these (the MR_TYPE_CTOR_INFO_IS_HO_*
>  	** macros need access to these addresses).
>  	*/
> -MR_DECLARE_STRUCT(mercury_data___type_ctor_info_pred_0);
> -MR_DECLARE_STRUCT(mercury_data___type_ctor_info_func_0);
> +extern const struct MR_TypeCtorInfo_struct
> +	mercury_data___type_ctor_info_pred_0;
> +extern const struct MR_TypeCtorInfo_struct
> +	mercury_data___type_ctor_info_func_0;
> +
> +	/* For bootstrapping */
> +#define mercury_data___type_ctor_info_pred_0_struct MR_TypeCtorInfo_struct
> +#define mercury_data___type_ctor_info_func_0_struct MR_TypeCtorInfo_struct

Shouldn't that go in runtime/mercury_bootstrap.h rather than
in library/std_util.m?

-- 
Fergus Henderson <fjh at cs.mu.oz.au>  |  "I have always known that the pursuit
WWW: <http://www.cs.mu.oz.au/~fjh>  |  of excellence is a lethal habit"
PGP: finger fjh at 128.250.37.3        |     -- the last words of T. S. Garp.
--------------------------------------------------------------------------
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
--------------------------------------------------------------------------