X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Fsm%2FEvac.c;fp=rts%2Fsm%2FEvac.c;h=17e756f2c4c4ce995812a7f16711a832f1093885;hb=0c69ee73d423dba8bf86336654a12a208b050bda;hp=65da0762f2d9a75500b4d71d106ea986849e4bdd;hpb=c82340688d6219a97b1ef0662223ba70ed864d17;p=ghc-hetmet.git

diff --git a/rts/sm/Evac.c b/rts/sm/Evac.c
index 65da076..17e756f 100644
--- a/rts/sm/Evac.c
+++ b/rts/sm/Evac.c
@@ -943,7 +943,7 @@ selector_loop:
               // For the purposes of LDV profiling, we have destroyed
               // the original selector thunk, p.
               SET_INFO(p, (StgInfoTable *)info_ptr);
-              OVERWRITING_CLOSURE(p);
+              OVERWRITING_CLOSURE((StgClosure*)p);
               SET_INFO(p, &stg_WHITEHOLE_info);
 #endif