[m-rev.] diff: library/gc.m: support agc

[Fergus Henderson]

Estimated hours taken: 0.25
Branches: main

library/gc.m:
	Support the accurate collector.

Workspace: /home/ceres/fjh/mercury
Index: library/gc.m
===================================================================
RCS file: /home/mercury1/repository/mercury/library/gc.m,v
retrieving revision 1.7
diff -u -d -r1.7 gc.m
--- library/gc.m	13 Feb 2002 09:56:29 -0000	1.7
+++ library/gc.m	6 Jun 2002 11:56:28 -0000
@@ -49,6 +49,8 @@
   #endif
 
 	GC_gcollect();
+#elif defined(MR_NATIVE_GC)
+	MR_garbage_collect();
 #endif
 ").
 :- pragma foreign_proc("MC++", garbage_collect, [will_not_call_mercury], "

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