info :: StgInfoTable
, indirectee :: Box
} |
+ BlackholeClosure {
+ info :: StgInfoTable
+ , indirectee :: Box
+ } |
APClosure {
info :: StgInfoTable
, arity :: HalfWord
allPtrs (ThunkClosure {..}) = ptrArgs
allPtrs (SelectorClosure {..}) = [selectee]
allPtrs (IndClosure {..}) = [indirectee]
+allPtrs (BlackholeClosure {..}) = [indirectee]
allPtrs (APClosure {..}) = fun:payload
allPtrs (PAPClosure {..}) = fun:payload
allPtrs (BCOClosure {..}) = [instrs,literals,bcoptrs]
IND_STATIC ->
return $ IndClosure itbl (head ptrs)
BLACKHOLE ->
- return $ IndClosure itbl (head ptrs)
+ return $ BlackholeClosure itbl (head ptrs)
BCO ->
return $ BCOClosure itbl (ptrs !! 0) (ptrs !! 1) (ptrs !! 2)