From dbade27af3bececc3e91cb6e4d52d10d9a5b7976 Mon Sep 17 00:00:00 2001
From: "Ben.Lippmeier@anu.edu.au" <unknown>
Date: Tue, 6 Oct 2009 05:34:14 +0000
Subject: [PATCH] Use C syntax for casting. 'stgCast' appears to have gone
 away.

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

diff --git a/rts/sm/Scav.c b/rts/sm/Scav.c
index 5e38777..c799de7 100644
--- a/rts/sm/Scav.c
+++ b/rts/sm/Scav.c
@@ -261,7 +261,7 @@ scavenge_srt (StgClosure **srt, nat srt_bitmap)
 	  // If the SRT entry hasn't got bit 0 set, the SRT entry points to a
 	  // closure that's fixed at link-time, and no extra magic is required.
 	  if ( (unsigned long)(*srt) & 0x1 ) {
-	      evacuate(stgCast(StgClosure**,(stgCast(unsigned long, *srt) & ~0x1)));
+	      evacuate( (StgClosure**) ((unsigned long) (*srt) & ~0x1));
 	  } else {
 	      evacuate(p);
 	  }
-- 
1.7.10.4