[m-dev.] for review: support catching exceptions in call_engine()

[Fergus Henderson]

On 16-Sep-1999, Fergus Henderson <fjh at cs.mu.OZ.AU> wrote:
> runtime/mercury_bootstrap.h:
> 	Add a #define of call_engine() that calls MR_call_engine(),
> 	for bootstrapping.

To save you all from having to recompile everything, I changed that
to instead define a call_engine() function in mercury_bootstrap.c.
See the diff below.

I discussed this change to support catching exceptions in call_engine
briefly with Zoltan and he didn't have any objections, so I will go
ahead and commit this now.

----------

runtime/mercury_bootstrap.c:
	Add a definition of call_engine() that calls MR_call_engine(),
	for bootstrapping.

Index: mercury_bootstrap.c
===================================================================
RCS file: /home/mercury1/repository/mercury/runtime/mercury_bootstrap.c,v
retrieving revision 1.16
diff -u -u -r1.16 mercury_bootstrap.c
--- mercury_bootstrap.c	1999/08/12 09:58:47	1.16
+++ mercury_bootstrap.c	1999/09/15 16:10:56
@@ -114,3 +114,7 @@
 	unify_univ_module_bootstrap();
 }
 
+void
+call_engine(Code *entry_point) {
+	(void) MR_call_engine(entry_point, FALSE);
+}
-- 
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
--------------------------------------------------------------------------