map brokenBlockId $
filter always_proc_point blocks
always_proc_point BrokenBlock {
- brokenBlockEntry = FunctionEntry _ _ } = True
+ brokenBlockEntry = FunctionEntry _ _ _ } = True
always_proc_point BrokenBlock {
- brokenBlockEntry = ContinuationEntry _ } = True
+ brokenBlockEntry = ContinuationEntry _ _ } = True
always_proc_point _ = False
calculateProcPoints' :: UniqSet BlockId -> [BrokenBlock] -> UniqSet BlockId