diff options
| author | benl@ouroborus.net <unknown> | 2010-06-24 08:31:21 +0000 |
|---|---|---|
| committer | benl@ouroborus.net <unknown> | 2010-06-24 08:31:21 +0000 |
| commit | e1744771112465b5d43df1d7e38c8a7415b4705f (patch) | |
| tree | b60491b610116ac404a32fb845271d1116ce71ec /compiler/nativeGen/RegAlloc/Graph/ArchBase.hs | |
| parent | a4e89052ca5163bc1a33b5096b50e5a3fbb9fbd5 (diff) | |
| download | haskell-e1744771112465b5d43df1d7e38c8a7415b4705f.tar.gz | |
NCG: Comments and formatting only
Diffstat (limited to 'compiler/nativeGen/RegAlloc/Graph/ArchBase.hs')
| -rw-r--r-- | compiler/nativeGen/RegAlloc/Graph/ArchBase.hs | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/compiler/nativeGen/RegAlloc/Graph/ArchBase.hs b/compiler/nativeGen/RegAlloc/Graph/ArchBase.hs index 6d312200bd..6172cde5de 100644 --- a/compiler/nativeGen/RegAlloc/Graph/ArchBase.hs +++ b/compiler/nativeGen/RegAlloc/Graph/ArchBase.hs @@ -23,8 +23,6 @@ module RegAlloc.Graph.ArchBase ( ) where - ------ import UniqSet import Unique @@ -32,7 +30,6 @@ import Unique -- Some basic register classes. -- These aren't nessesarally in 1-to-1 correspondance with the allocatable -- RegClasses in MachRegs.hs --- data RegClass -- general purpose regs = ClassG32 -- 32 bit GPRs @@ -85,7 +82,6 @@ data RegSub -- This should be hand coded/cached for each particular architecture, -- because the compute time is very long.. - worst :: (RegClass -> UniqSet Reg) -> (Reg -> UniqSet Reg) @@ -114,8 +110,6 @@ worst regsOfClass regAlias neighbors classN classC -- | For a node N of classN and neighbors of classesC -- (bound classN classesC) is the maximum number of potential -- colors for N that can be lost by coloring its neighbors. --- - bound :: (RegClass -> UniqSet Reg) -> (Reg -> UniqSet Reg) @@ -139,8 +133,7 @@ bound regsOfClass regAlias classN classesC -- -- A version of this should be constructed for each particular architecture, -- possibly including uses of bound, so that alised registers don't get counted --- twice, as per the paper. --- +-- twice, as per the paper. squeese :: (RegClass -> UniqSet Reg) -> (Reg -> UniqSet Reg) |