From: Simon Marlow <marlowsd@gmail.com>
Date: Wed, 20 Aug 2008 12:54:46 +0000 (+0000)
Subject: Fix compacting GC on 64-bit machines
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=aceacfc45ac040b450e36626723d63cd1977ecee;p=ghc-hetmet.git

Fix compacting GC on 64-bit machines
Some old experimental change leaked in with the parallel GC patches,
it seems
---

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: