[m-dev.] trivial diff: fix FRAMEVARS bug in exception.m

[Fergus Henderson]

Estimated hours taken: 0.25

library/exception.m:
	Fix a bug in my previous change that broke things for non-gc grades.
	There were a couple of places where I had forgotten to rename
	`FRAMEVARS' as `MR_EXCEPTION_FRAMEVARS'.

Workspace: /home/mercury0/fjh/mercury
Index: library/exception.m
===================================================================
RCS file: /home/mercury1/repository/mercury/library/exception.m,v
retrieving revision 1.2
diff -u -r1.2 exception.m
--- exception.m	1999/09/16 09:24:34	1.2
+++ exception.m	1999/09/17 05:18:44
@@ -950,11 +950,13 @@
 	** Note that we need to save/restore the hp register, if it
 	** is transient, before/after calling deep_copy().
 	*/
-	assert(FRAMEVARS->heap_ptr <= MR_EXCEPTION_FRAMEVARS->heap_zone->top);
+	assert(MR_EXCEPTION_FRAMEVARS->heap_ptr <=
+		MR_EXCEPTION_FRAMEVARS->heap_zone->top);
 	save_transient_registers();
 	exception = deep_copy((Word *) exception,
 		(Word *) &mercury_data_std_util__type_ctor_info_univ_0,
-		FRAMEVARS->heap_ptr, MR_EXCEPTION_FRAMEVARS->heap_zone->top);
+		MR_EXCEPTION_FRAMEVARS->heap_ptr,
+		MR_EXCEPTION_FRAMEVARS->heap_zone->top);
 	restore_transient_registers();
 
 	/* switch back to the ordinary heap */

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