[m-rev.] Re: diff: support `hlc' and `hl' grades

[Fergus Henderson]

Sorry, the following hunk from the diff I posted earlier was from
a separate change -- I won't commit this with the other changes.

> Index: runtime/mercury.h
> ===================================================================
> RCS file: /home/mercury1/repository/mercury/runtime/mercury.h,v
> retrieving revision 1.39
> diff -u -d -r1.39 mercury.h
> --- runtime/mercury.h	31 Oct 2001 17:59:03 -0000	1.39
> +++ runtime/mercury.h	22 Nov 2001 11:18:09 -0000
> @@ -229,11 +233,20 @@
>  typedef struct MR_FO_PseudoTypeInfo_Struct9 MR_FO_PseudoTypeInfo_Struct9;
>  typedef struct MR_FO_PseudoTypeInfo_Struct10 MR_FO_PseudoTypeInfo_Struct10;
>  
> +/* The chain of stack frames, used for accurate GC. */
> +struct MR_StackChain {
> +	struct MR_StackChain *prev;
> +	void (*trace)(void *this_frame);
> +};
> +
>  /*---------------------------------------------------------------------------*/
>  /*
>  ** Declarations of contants and variables
>  */
>  
> +/* This points to the start of the MR_StackChain frame list. */
> +extern void *mercury__private_builtin__stack_chain;
> +
>  /* declare MR_TypeCtorInfo_Structs for the builtin types */
>  extern const MR_TypeCtorInfo_Struct
>  	mercury__builtin__builtin__type_ctor_info_int_0,

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