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/RegAlloc/Graph/SpillClean.hs | |
| parent | 190d8e13165bc21411a3357cc685a734a0f36370 (diff) | |
| download | haskell-4efb0abc5b1b3d33036b640f36ed1efcb10e6cd4.tar.gz | |
Renaming only
CmmTop -> CmmDecl
CmmPgm -> CmmGroup
Diffstat (limited to 'compiler/nativeGen/RegAlloc/Graph/SpillClean.hs')
| -rw-r--r-- | compiler/nativeGen/RegAlloc/Graph/SpillClean.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/compiler/nativeGen/RegAlloc/Graph/SpillClean.hs b/compiler/nativeGen/RegAlloc/Graph/SpillClean.hs index da13eab045..94c274dfaf 100644 --- a/compiler/nativeGen/RegAlloc/Graph/SpillClean.hs +++ b/compiler/nativeGen/RegAlloc/Graph/SpillClean.hs @@ -55,7 +55,7 @@ type Slot = Int -- | Clean out unneeded spill\/reloads from this top level thing. cleanSpills :: Instruction instr - => Platform -> LiveCmmTop statics instr -> LiveCmmTop statics instr + => Platform -> LiveCmmDecl statics instr -> LiveCmmDecl statics instr cleanSpills platform cmm = evalState (cleanSpin platform 0 cmm) initCleanS @@ -65,8 +65,8 @@ cleanSpin :: Instruction instr => Platform -> Int - -> LiveCmmTop statics instr - -> CleanM (LiveCmmTop statics instr) + -> LiveCmmDecl statics instr + -> CleanM (LiveCmmDecl statics instr) {- cleanSpin _ spinCount code @@ -287,8 +287,8 @@ cleanReload _ _ _ _ -- cleanTopBackward :: Instruction instr - => LiveCmmTop statics instr - -> CleanM (LiveCmmTop statics instr) + => LiveCmmDecl statics instr + -> CleanM (LiveCmmDecl statics instr) cleanTopBackward cmm = case cmm of |