From 0c69ee73d423dba8bf86336654a12a208b050bda Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Thu, 16 Dec 2010 10:57:23 +0000 Subject: [PATCH] fix a warning --- 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 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 -- 1.7.10.4