[m-rev.] for review: add agc tracing code to exception.m

[Fergus Henderson]

Estimated hours taken: 1
Branches: main

library/exception.m:
	Fix a bug in my earlier change to add support for accurate GC:
	it was not restoring mercury__private_builtin__stack_chain
	properly after an exception was thrown.

Workspace: /home/ceres/fjh/mercury
Index: library/exception.m
===================================================================
RCS file: /home/mercury1/repository/mercury/library/exception.m,v
retrieving revision 1.63
diff -u -d -r1.63 exception.m
--- library/exception.m	7 Jun 2002 00:48:51 -0000	1.63
+++ library/exception.m	7 Jun 2002 09:47:51 -0000
@@ -858,8 +858,7 @@
 
  #define ML_UNINSTALL_AGC_HANDLER() \
  	do { \
-	    mercury__private_builtin__stack_chain = ((struct MR_StackChain *) \
-		mercury__private_builtin__stack_chain)->prev; \
+	    mercury__private_builtin__stack_chain = agc_locals.prev; \
 	} while (0)
 
   #define ML_AGC_LOCAL(NAME) (agc_locals.NAME)
-- 
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
--------------------------------------------------------------------------