always_proc_point BrokenBlock {
brokenBlockEntry = FunctionEntry _ _ _ } = True
always_proc_point BrokenBlock {
- brokenBlockEntry = ContinuationEntry _ _ } = True
+ brokenBlockEntry = ContinuationEntry _ _ _ } = True
always_proc_point _ = False
calculateProcPoints' :: UniqSet BlockId -> [BrokenBlock] -> UniqSet BlockId
new = old `unionUniqSets`
lookupWithDefaultUFM owners emptyUniqSet cause'
- unknown_block = panic "unknown BlockId in selectStackFormat"
+ unknown_block = panic "unknown BlockId in calculateOwnership"