[m-rev.] trivial diff: fix type error in mvar.m

[Fergus Henderson]

Estimated hours taken: 0.25
Branches: main

extras/concurrency/mvar.m:
	Fix a type error in the `pragma c_code'.

Workspace: /home/earth/fjh/ws-earth3/mercury
Index: extras/concurrency/mvar.m
===================================================================
RCS file: /home/mercury1/repository/mercury/extras/concurrency/mvar.m,v
retrieving revision 1.1
diff -u -d -r1.1 mvar.m
--- extras/concurrency/mvar.m	29 May 2001 08:51:57 -0000	1.1
+++ extras/concurrency/mvar.m	22 Nov 2001 10:35:22 -0000
@@ -105,7 +105,7 @@
 		[will_not_call_mercury, thread_safe],
 "
 	incr_hp_msg(Ref, 1, MR_PROC_LABEL, ""mvar:ref/1"");
-	*(MR_Word *) Ref = NULL;
+	*(MR_Word *) Ref = (MR_Word) NULL;
 ").
 
 :- pragma inline(get_ref/2).
@@ -113,7 +113,7 @@
 		[will_not_call_mercury, thread_safe],
 "
 	X = *(MR_Word *) Ref;
-	*(MR_Word *) Ref = NULL;
+	*(MR_Word *) Ref = (MR_Word) NULL;
 ").
 
 :- pragma inline(set_ref/2).

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