From aceacfc45ac040b450e36626723d63cd1977ecee Mon Sep 17 00:00:00 2001
From: Simon Marlow <marlowsd@gmail.com>
Date: Wed, 20 Aug 2008 12:54:46 +0000
Subject: [PATCH] Fix compacting GC on 64-bit machines Some old experimental
 change leaked in with the parallel GC patches, it seems

---
 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 ab55e8a..b8fb54b 100644
--- a/rts/sm/Scav.c
+++ b/rts/sm/Scav.c
@@ -745,7 +745,7 @@ linear_scan:
 	info = get_itbl((StgClosure *)p);
 	
 	q = p;
-        switch (((volatile StgWord *)info)[1] & 0xffff) {
+        switch (info->type) {
 	    
         case MVAR_CLEAN:
         case MVAR_DIRTY:
-- 
1.7.10.4