From f7de2e9478d6f43090c8a0b38a4bdb282b001c8f Mon Sep 17 00:00:00 2001
From: "simonmar@microsoft.com" <unknown>
Date: Wed, 21 Nov 2007 16:47:47 +0000
Subject: [PATCH] warning fix

---
 rts/sm/Evac.c |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/rts/sm/Evac.c b/rts/sm/Evac.c
index 26646fe..fc344f9 100644
--- a/rts/sm/Evac.c
+++ b/rts/sm/Evac.c
@@ -295,7 +295,7 @@ selector_loop:
 #ifdef PROFILING
               // For the purposes of LDV profiling, we have destroyed
               // the original selector thunk, p.
-              SET_INFO(p, info_ptr);
+              SET_INFO(p, (StgInfoTable *)info_ptr);
               LDV_RECORD_DEAD_FILL_SLOP_DYNAMIC((StgClosure *)p);
               SET_INFO(p, &stg_BLACKHOLE_info);
 #endif
-- 
1.7.10.4