From: Simon Marlow <simonmar@microsoft.com>
Date: Mon, 27 Mar 2006 12:23:23 +0000 (+0000)
Subject: eliminate a warning
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=5ed93b107550cc10fda7ae187de65da1a4b24d87

eliminate a warning
---

diff --git a/ghc/includes/SMP.h b/ghc/includes/SMP.h
index 93af9df..5974c96 100644
--- a/ghc/includes/SMP.h
+++ b/ghc/includes/SMP.h
@@ -121,7 +121,7 @@ lockClosure(StgClosure *p)
     do {
 	nat i = 0;
 	do {
-	    info = xchg((P_)&p->header.info, (W_)&stg_WHITEHOLE_info);
+	    info = xchg((P_)(void *)&p->header.info, (W_)&stg_WHITEHOLE_info);
 	    if (info != (W_)&stg_WHITEHOLE_info) return (StgInfoTable *)info;
 	} while (++i < SPIN_COUNT);
 	yieldThread();