[m-dev.] trivial diff: MLDS back-end: bug fix for uncaught exceptions

[Fergus Henderson]

Estimated hours taken: 0.25

library/exception.m:
	Fix a trivial bug in the code that checks for uncaught
	exceptions for the MLDS back-end.  This bug broke
	tests/hard_coded/exceptions/test_uncaught_exception.m.

Workspace: /home/pgrad/fjh/ws/hg
Index: library/exception.m
===================================================================
RCS file: /home/mercury1/repository/mercury/library/exception.m,v
retrieving revision 1.20
diff -u -d -r1.20 exception.m
--- library/exception.m	2000/05/08 13:48:34	1.20
+++ library/exception.m	2000/05/09 08:58:46
@@ -636,7 +636,7 @@
 void
 mercury__exception__builtin_throw_1_p_0(MR_Univ exception)
 {
-	if (ML_exception_handler->handler == NULL) {
+	if (ML_exception_handler == NULL) {
 		ML_report_uncaught_exception(exception);
 		abort();
 	} else {

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