diff options
| author | benl@ouroborus.net <unknown> | 2010-06-24 09:13:39 +0000 |
|---|---|---|
| committer | benl@ouroborus.net <unknown> | 2010-06-24 09:13:39 +0000 |
| commit | cf1c939d4693519e4f23c0f4fcbe60f1e04adf3e (patch) | |
| tree | 9cc2b471057e2caa49dee637f5148d162ad26d0e /compiler/nativeGen/RegAlloc/Liveness.hs | |
| parent | e1744771112465b5d43df1d7e38c8a7415b4705f (diff) | |
| download | haskell-cf1c939d4693519e4f23c0f4fcbe60f1e04adf3e.tar.gz | |
Fix warnings
Diffstat (limited to 'compiler/nativeGen/RegAlloc/Liveness.hs')
| -rw-r--r-- | compiler/nativeGen/RegAlloc/Liveness.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/nativeGen/RegAlloc/Liveness.hs b/compiler/nativeGen/RegAlloc/Liveness.hs index cc1bf12dd7..d7659b5c86 100644 --- a/compiler/nativeGen/RegAlloc/Liveness.hs +++ b/compiler/nativeGen/RegAlloc/Liveness.hs @@ -686,7 +686,7 @@ checkIsReverseDependent checkIsReverseDependent sccs' = go emptyUniqSet sccs' - where go blockssSeen [] + where go _ [] = Nothing go blocksSeen (AcyclicSCC block : sccs) @@ -705,7 +705,7 @@ checkIsReverseDependent sccs' [] -> go blocksSeen' sccs bad : _ -> Just bad - slurpJumpDestsOfBlock (BasicBlock blockId instrs) + slurpJumpDestsOfBlock (BasicBlock _ instrs) = unionManyUniqSets $ map (mkUniqSet . jumpDestsOfInstr) [ i | LiveInstr i _ <- instrs] |