[m-rev.] diff: fix bootstrap problem with mercury_init.h

[Fergus Henderson]

On 14-May-2002, Peter Ross <peter.ross at miscrit.be> wrote:
> On Tue, May 14, 2002 at 08:38:05AM +0000, Peter Ross wrote:
> > 
> > runtime/mercury_init.h:
> >     Foreign types are now exported as MR_Box on the MLDS backends,
> >     reflect this in the function prototypes.
>
> Index: mercury_init.h
...
> -extern	void	ML_io_stderr_stream(MR_Word *);
> -extern	void	ML_io_stdout_stream(MR_Word *);
> -extern	void	ML_io_stdin_stream(MR_Word *);
>  
> -extern	void	ML_io_print_to_stream(MR_Word, MR_Word, MR_Word);
> +#ifdef MR_HIGHLEVEL_CODE
> +  extern	void	ML_io_stderr_stream(MR_Box *);
> +  extern	void	ML_io_stdout_stream(MR_Box *);
> +  extern	void	ML_io_stdin_stream(MR_Box *);
> +
> +  extern	void	ML_io_print_to_stream(MR_Word, MR_Box, MR_Word);
> +#else
> +  extern	void	ML_io_stderr_stream(MR_Word *);
> +  extern	void	ML_io_stdout_stream(MR_Word *);
> +  extern	void	ML_io_stdin_stream(MR_Word *);
> +
> +  extern	void	ML_io_print_to_stream(MR_Word, MR_Word, MR_Word);
> +#endif

This is not the right fix.  Foreign types should be exported with the
same prototype no matter which back-end is being used.

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