[m-rev.] trivial diff: add missing cast in mercury_ho_call.c

[Fergus Henderson]

Estimated hours taken: 0.25
Branches: main

runtime/mercury_ho_call.c:
	Add a cast, to fix a type error in stayl's recent change.

Workspace: /home/ceres/fjh/mercury
Index: runtime/mercury_ho_call.c
===================================================================
RCS file: /home/mercury1/repository/mercury/runtime/mercury_ho_call.c,v
retrieving revision 1.63
diff -u -d -r1.63 mercury_ho_call.c
--- runtime/mercury_ho_call.c	24 Sep 2003 06:33:27 -0000	1.63
+++ runtime/mercury_ho_call.c	30 Sep 2003 01:53:39 -0000
@@ -1088,7 +1088,8 @@
 	closure->MR_closure_code = proc_addr;
 	closure->MR_closure_num_hidden_args = num_hidden_args;
 #ifdef MR_HIGHLEVEL_CODE
-	closure->MR_closure_hidden_args(1) = &MR_generic_closure_wrapper;
+	closure->MR_closure_hidden_args(1) =
+		(MR_Word) &MR_generic_closure_wrapper;
 #endif
 
 	MR_save_transient_hp();

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