From 34935206e51b9c86902481d84d2f368a6fd93423 Mon Sep 17 00:00:00 2001 From: Joachim Breitner Date: Fri, 8 Mar 2013 15:01:59 +0000 Subject: [PATCH] Avoid following BreakInfo in closureData --- src/GHC/HeapView.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/GHC/HeapView.hs b/src/GHC/HeapView.hs index 1c8178e..f99af1f 100644 --- a/src/GHC/HeapView.hs +++ b/src/GHC/HeapView.hs @@ -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)