X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FSanity.c;h=3f4b3cf7b05a81f0edf68b26f493f4d276f0028d;hb=de75026f5a48d3d052135a973ab4dff76c5b20f5;hp=20507ca8169363081a6beeb221d2d69392218796;hpb=1aaac3473d8fce705610e4a6437283f7401a5583;p=ghc-hetmet.git

diff --git a/rts/Sanity.c b/rts/Sanity.c
index 20507ca..3f4b3cf 100644
--- a/rts/Sanity.c
+++ b/rts/Sanity.c
@@ -633,10 +633,12 @@ checkHeapChunk(StgPtr start, StgPtr end)
 #endif
 
 void
-checkChain(bdescr *bd)
+checkLargeObjects(bdescr *bd)
 {
   while (bd != NULL) {
-    checkClosure((StgClosure *)bd->start);
+    if (!(bd->flags & BF_PINNED)) {
+      checkClosure((StgClosure *)bd->start);
+    }
     bd = bd->link;
   }
 }