[m-rev.] diff: mark free_heap/1 as impure

[Fergus Henderson]

Estimated hours taken: 0.25
Branches: main

library/private_builtin.m:
	Fix an XXX: mark free_heap/1 as `impure'.

Workspace: /home/earth/fjh/ws-earth4/mercury
Index: library/private_builtin.m
===================================================================
RCS file: /home/mercury1/repository/mercury/library/private_builtin.m,v
retrieving revision 1.94
diff -u -d -r1.94 private_builtin.m
--- library/private_builtin.m	5 Feb 2002 09:21:51 -0000	1.94
+++ library/private_builtin.m	5 Feb 2002 09:22:09 -0000
@@ -1111,9 +1111,7 @@
 	% The `di' mode on the argument is overly conservative -- only
 	% the top-level cell is clobbered. This is handled correctly by
 	% mode_util__recompute_instmap_delta.
-	% XXX Why isn't this marked as `impure'?
-:- pred free_heap(_T).
-:- mode free_heap(di) is det.
+:- impure pred free_heap(T::di) is det.
 
 	% gc_trace/1 is used for accurate garbage collection in the
 	% the MLDS->C backend.  It takes as parameters a pointer to

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