[m-rev.] diff: implement io__stream as foreign type

Fergus Henderson fjh at cs.mu.OZ.AU
Thu May 16 18:28:46 AEST 2002


On 16-May-2002, Fergus Henderson <fjh at cs.mu.OZ.AU> wrote:
> library/io.m:
> 	Back out Pete's earlier change to define io_stream using
> 	`pragma foreign_type', since this breaks the `--target asm'
> 	back-end.

Likewise for runtime/mercury_init.h.

Index: mercury_init.h
===================================================================
RCS file: /home/mercury1/repository/mercury/runtime/mercury_init.h,v
retrieving revision 1.35
diff -u -d -u -r1.35 mercury_init.h
--- mercury_init.h	14 May 2002 08:37:40 -0000	1.35
+++ mercury_init.h	16 May 2002 08:26:40 -0000
@@ -113,21 +113,11 @@
 extern	void	mercury_init_io(void);
 extern	void	ML_io_init_state(void);
 extern	void	ML_io_finalize_state(void);
+extern	void	ML_io_stderr_stream(MR_Word *);
+extern	void	ML_io_stdout_stream(MR_Word *);
+extern	void	ML_io_stdin_stream(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
-
+extern	void	ML_io_print_to_stream(MR_Word, MR_Word, MR_Word);
 extern	void	ML_io_print_to_cur_stream(MR_Word, MR_Word);
 
 /* in trace/mercury_trace_internal.h */
-- 
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
--------------------------------------------------------------------------



More information about the reviews mailing list