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/Main.hs | |
| parent | 190d8e13165bc21411a3357cc685a734a0f36370 (diff) | |
| download | haskell-4efb0abc5b1b3d33036b640f36ed1efcb10e6cd4.tar.gz | |
Renaming only
CmmTop -> CmmDecl
CmmPgm -> CmmGroup
Diffstat (limited to 'compiler/nativeGen/RegAlloc/Graph/Main.hs')
| -rw-r--r-- | compiler/nativeGen/RegAlloc/Graph/Main.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/compiler/nativeGen/RegAlloc/Graph/Main.hs b/compiler/nativeGen/RegAlloc/Graph/Main.hs index 5321a34695..19497145f2 100644 --- a/compiler/nativeGen/RegAlloc/Graph/Main.hs +++ b/compiler/nativeGen/RegAlloc/Graph/Main.hs @@ -49,8 +49,8 @@ regAlloc => DynFlags -> UniqFM (UniqSet RealReg) -- ^ the registers we can use for allocation -> UniqSet Int -- ^ the set of available spill slots. - -> [LiveCmmTop statics instr] -- ^ code annotated with liveness information. - -> UniqSM ( [NatCmmTop statics instr], [RegAllocStats statics instr] ) + -> [LiveCmmDecl statics instr] -- ^ code annotated with liveness information. + -> UniqSM ( [NatCmmDecl statics instr], [RegAllocStats statics instr] ) -- ^ code with registers allocated and stats for each stage of -- allocation @@ -242,7 +242,7 @@ regAlloc_spin -- | Build a graph from the liveness and coalesce information in this code. buildGraph :: Instruction instr - => [LiveCmmTop statics instr] + => [LiveCmmDecl statics instr] -> UniqSM (Color.Graph VirtualReg RegClass RealReg) buildGraph code @@ -325,7 +325,7 @@ graphAddCoalesce _ _ patchRegsFromGraph :: (Outputable statics, PlatformOutputable instr, Instruction instr) => Platform -> Color.Graph VirtualReg RegClass RealReg - -> LiveCmmTop statics instr -> LiveCmmTop statics instr + -> LiveCmmDecl statics instr -> LiveCmmDecl statics instr patchRegsFromGraph platform graph code = let |