summaryrefslogtreecommitdiff
path: root/compiler/nativeGen/SPARC
diff options
context:
space:
mode:
authorRyan Scott <ryan.gl.scott@gmail.com>2017-01-25 23:51:32 -0500
committerRyan Scott <ryan.gl.scott@gmail.com>2017-01-25 23:51:59 -0500
commit88a89b761ae37c38c190779b64e97bdd8cc10253 (patch)
tree86190ae7e124f54b7fe0f3eaa5ff5aef331865d6 /compiler/nativeGen/SPARC
parente4ab8ba72af27cd23ecd3737b166b625190c34a5 (diff)
downloadhaskell-88a89b761ae37c38c190779b64e97bdd8cc10253.tar.gz
Nix typo and redundant where-clauses
Diffstat (limited to 'compiler/nativeGen/SPARC')
-rw-r--r--compiler/nativeGen/SPARC/CodeGen/Gen32.hs2
1 files changed, 0 insertions, 2 deletions
diff --git a/compiler/nativeGen/SPARC/CodeGen/Gen32.hs b/compiler/nativeGen/SPARC/CodeGen/Gen32.hs
index a7085588e9..a0e86f14c4 100644
--- a/compiler/nativeGen/SPARC/CodeGen/Gen32.hs
+++ b/compiler/nativeGen/SPARC/CodeGen/Gen32.hs
@@ -234,8 +234,6 @@ getRegister (CmmMachOp mop [x, y])
MO_S_Shr rep -> trivialCode rep SRA x y
_ -> pprPanic "getRegister(sparc) - binary CmmMachOp (1)" (pprMachOp mop)
- where
-
getRegister (CmmLoad mem pk) = do
Amode src code <- getAmode mem