diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2012-11-12 12:02:44 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-11-12 15:20:31 +0000 |
| commit | 929578081e8b2b0f14e9518329f516eebf4315ce (patch) | |
| tree | e83ef5975626587dbd1e7b62e0047c7fccd209ae /compiler/nativeGen | |
| parent | d92bd17ffd8715f77fd49de0fed6e39c8d0ec28b (diff) | |
| download | haskell-929578081e8b2b0f14e9518329f516eebf4315ce.tar.gz | |
Fix warnings
Diffstat (limited to 'compiler/nativeGen')
| -rw-r--r-- | compiler/nativeGen/AsmCodeGen.lhs | 1 | ||||
| -rw-r--r-- | compiler/nativeGen/Instruction.hs | 1 |
2 files changed, 0 insertions, 2 deletions
diff --git a/compiler/nativeGen/AsmCodeGen.lhs b/compiler/nativeGen/AsmCodeGen.lhs index 7710691457..53d1949aeb 100644 --- a/compiler/nativeGen/AsmCodeGen.lhs +++ b/compiler/nativeGen/AsmCodeGen.lhs @@ -953,7 +953,6 @@ cmmStmtConFold stmt CmmCondBranch test true false -> do test' <- cmmExprConFold DataReference test - dflags <- getDynFlags return $ case test' of CmmLit (CmmInt 0 _) -> CmmBranch false CmmLit (CmmInt _ _) -> CmmBranch true diff --git a/compiler/nativeGen/Instruction.hs b/compiler/nativeGen/Instruction.hs index 48d6a33d79..076129f7fa 100644 --- a/compiler/nativeGen/Instruction.hs +++ b/compiler/nativeGen/Instruction.hs @@ -19,7 +19,6 @@ import BlockId import DynFlags import Cmm hiding (topInfoTable) import Platform -import Outputable -- | Holds a list of source and destination registers used by a -- particular instruction. |