diff options
Diffstat (limited to 'compiler/cmm/CmmLint.hs')
| -rw-r--r-- | compiler/cmm/CmmLint.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/compiler/cmm/CmmLint.hs b/compiler/cmm/CmmLint.hs index c009112d4b..12c884a710 100644 --- a/compiler/cmm/CmmLint.hs +++ b/compiler/cmm/CmmLint.hs @@ -16,7 +16,6 @@ import CmmUtils import CmmLive import CmmSwitch (switchTargetsToList) import PprCmm () -import BlockId import Outputable import DynFlags @@ -64,7 +63,7 @@ lintCmmGraph dflags g = labels = setFromList (map entryLabel blocks) -lintCmmBlock :: BlockSet -> CmmBlock -> CmmLint () +lintCmmBlock :: LabelSet -> CmmBlock -> CmmLint () lintCmmBlock labels block = addLintInfo (text "in basic block " <> ppr (entryLabel block)) $ do let (_, middle, last) = blockSplit block @@ -157,7 +156,7 @@ lintCmmMiddle node = case node of mapM_ lintCmmExpr actuals -lintCmmLast :: BlockSet -> CmmNode O C -> CmmLint () +lintCmmLast :: LabelSet -> CmmNode O C -> CmmLint () lintCmmLast labels node = case node of CmmBranch id -> checkTarget id |