diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2011-08-23 09:14:46 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2011-08-25 11:12:31 +0100 |
| commit | 4efb0abc5b1b3d33036b640f36ed1efcb10e6cd4 (patch) | |
| tree | 8c49fcc5c8cfe88d76a7f4074d8dc78e3304d5a3 /compiler/nativeGen/PPC/CodeGen.hs | |
| parent | 190d8e13165bc21411a3357cc685a734a0f36370 (diff) | |
| download | haskell-4efb0abc5b1b3d33036b640f36ed1efcb10e6cd4.tar.gz | |
Renaming only
CmmTop -> CmmDecl
CmmPgm -> CmmGroup
Diffstat (limited to 'compiler/nativeGen/PPC/CodeGen.hs')
| -rw-r--r-- | compiler/nativeGen/PPC/CodeGen.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/compiler/nativeGen/PPC/CodeGen.hs b/compiler/nativeGen/PPC/CodeGen.hs index b1936fe124..359a63392c 100644 --- a/compiler/nativeGen/PPC/CodeGen.hs +++ b/compiler/nativeGen/PPC/CodeGen.hs @@ -67,8 +67,8 @@ import FastString -- order. cmmTopCodeGen - :: RawCmmTop - -> NatM [NatCmmTop CmmStatics Instr] + :: RawCmmDecl + -> NatM [NatCmmDecl CmmStatics Instr] cmmTopCodeGen (CmmProc info lab (ListGraph blocks)) = do (nat_blocks,statics) <- mapAndUnzipM basicBlockCodeGen blocks @@ -87,7 +87,7 @@ cmmTopCodeGen (CmmData sec dat) = do basicBlockCodeGen :: CmmBasicBlock -> NatM ( [NatBasicBlock Instr] - , [NatCmmTop CmmStatics Instr]) + , [NatCmmDecl CmmStatics Instr]) basicBlockCodeGen (BasicBlock id stmts) = do instrs <- stmtsToInstrs stmts @@ -1184,7 +1184,7 @@ genSwitch expr ids ] return code -generateJumpTableForInstr :: Instr -> Maybe (NatCmmTop CmmStatics Instr) +generateJumpTableForInstr :: Instr -> Maybe (NatCmmDecl CmmStatics Instr) generateJumpTableForInstr (BCTR ids (Just lbl)) = let jumpTable | opt_PIC = map jumpTableEntryRel ids |