-{-# OPTIONS -w #-}
--- The above warning supression flag is a temporary kludge.
--- While working on this module you are encouraged to remove it and fix
--- any warnings in the module. See
--- http://hackage.haskell.org/trac/ghc/wiki/Commentary/CodingStyle#Warnings
--- for details
-
module CmmProcPoint (
calculateProcPoints
) where
#include "HsVersions.h"
import BlockId
-import Cmm
import CmmBrokenBlock
import Dataflow
import UniqSet
-import UniqFM
import Panic
-- Determine the proc points for a set of basic blocks.
(Nothing, True) ->
Just $ extendBlockEnv owners ident (unitUniqSet ident)
(Nothing, False) -> Nothing
- (Just cause', True) -> Nothing
+ (Just _, True) -> Nothing
(Just cause', False) ->
if (sizeUniqSet old) == (sizeUniqSet new)
then Nothing