diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-06-13 13:06:03 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-06-13 13:06:03 +0100 |
| commit | bfe94012ade96a7fa019d596c7639208a992470c (patch) | |
| tree | 46ee5a26cf96453f1d64fd0178cf8555e70b2611 /compiler/nativeGen/PPC/CodeGen.hs | |
| parent | d2bb4777b7d70d99d4c72398796fb1ecfb0b3efa (diff) | |
| download | haskell-bfe94012ade96a7fa019d596c7639208a992470c.tar.gz | |
Remove lots of commented out 'in' keywords
Diffstat (limited to 'compiler/nativeGen/PPC/CodeGen.hs')
| -rw-r--r-- | compiler/nativeGen/PPC/CodeGen.hs | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/compiler/nativeGen/PPC/CodeGen.hs b/compiler/nativeGen/PPC/CodeGen.hs index 22406073b5..edbaa14f51 100644 --- a/compiler/nativeGen/PPC/CodeGen.hs +++ b/compiler/nativeGen/PPC/CodeGen.hs @@ -105,7 +105,6 @@ basicBlockCodeGen (BasicBlock id stmts) = do = (instrs, blocks, CmmData sec dat:statics) mkBlocks instr (instrs,blocks,statics) = (instr:instrs, blocks, statics) - -- in return (BasicBlock id top : other_blocks, statics) stmtsToInstrs :: [CmmStmt] -> NatM InstrBlock @@ -285,7 +284,6 @@ assignMem_I64Code addrTree valueTree = do -- Big-endian store mov_hi = ST II32 rhi hi_addr mov_lo = ST II32 rlo lo_addr - -- in return (vcode `appOL` addr_code `snocOL` mov_lo `snocOL` mov_hi) @@ -298,7 +296,6 @@ assignReg_I64Code (CmmLocal (LocalReg u_dst _)) valueTree = do r_src_hi = getHiVRegFromLo r_src_lo mov_lo = MR r_dst_lo r_src_lo mov_hi = MR r_dst_hi r_src_hi - -- in return ( vcode `snocOL` mov_lo `snocOL` mov_hi ) @@ -333,7 +330,6 @@ iselExpr64 (CmmLit (CmmInt i _)) = do LIS rhi (ImmInt half3), OR rlo rlo (RIImm $ ImmInt half2) ] - -- in return (ChildCode64 code rlo) iselExpr64 (CmmMachOp (MO_Add _) [e1,e2]) = do @@ -347,7 +343,6 @@ iselExpr64 (CmmMachOp (MO_Add _) [e1,e2]) = do code2 `appOL` toOL [ ADDC rlo r1lo r2lo, ADDE rhi r1hi r2hi ] - -- in return (ChildCode64 code rlo) iselExpr64 (CmmMachOp (MO_UU_Conv W32 W64) [expr]) = do |