Avoid following BreakInfo in closureData
authorJoachim Breitner <mail@joachim-breitner.de>
Fri, 8 Mar 2013 15:01:59 +0000 (15:01 +0000)
committerJoachim Breitner <mail@joachim-breitner.de>
Fri, 8 Mar 2013 15:01:59 +0000 (15:01 +0000)
src/GHC/HeapView.hs

index 1c8178e..f99af1f 100644 (file)
@@ -536,7 +536,9 @@ getClosureData x = do
     case tipe itbl of 
         t | t >= CONSTR && t <= CONSTR_NOCAF_STATIC -> do
             (pkg, modl, name) <- dataConInfoPtrToNames iptr
-            return $ ConsClosure itbl ptrs (drop (length ptrs + 1) wds) pkg modl name
+            if modl == "ByteCodeInstr" && name == "BreakInfo"
+              then return $ UnsupportedClosure itbl
+              else return $ ConsClosure itbl ptrs (drop (length ptrs + 1) wds) pkg modl name
 
         t | t >= THUNK && t <= THUNK_STATIC -> do
             return $ ThunkClosure itbl ptrs (drop (length ptrs + 2) wds)