refactoring/tidyup: (not.is64BitInteger) -> is32BitInteger

[ghc-hetmet.git] / compiler / nativeGen / RegAllocColor.hs

diff --git a/compiler/nativeGen/RegAllocColor.hs b/compiler/nativeGen/RegAllocColor.hs
index e2e002a..5c85691 100644 (file)
--- a/compiler/nativeGen/RegAllocColor.hs
+++ b/compiler/nativeGen/RegAllocColor.hs
@@ -24,7 +24,7 @@ import PprMach
 
 import UniqSupply
 import UniqSet
-import LazyUniqFM
+import UniqFM
 import Bag
 import Outputable
 import DynFlags
@@ -33,7 +33,7 @@ import Data.List
 import Data.Maybe
 import Control.Monad
 
--- | The maximum number of build/spill cycles we'll allow.
+-- | The maximum number of build\/spill cycles we'll allow.
 --     We should only need 3 or 4 cycles tops.
 --     If we run for any longer than this we're probably in an infinite loop,
 --     It's probably better just to bail out and report a bug at this stage.
@@ -48,9 +48,9 @@ regAlloc
        -> UniqFM (UniqSet Reg)         -- ^ the registers we can use for allocation
        -> UniqSet Int                  -- ^ the set of available spill slots.
        -> [LiveCmmTop]                 -- ^ code annotated with liveness information.
-       -> UniqSM 
-               ( [NatCmmTop]           -- ^ code with registers allocated.
-               , [RegAllocStats] )     -- ^ stats for each stage of allocation
+       -> UniqSM ( [NatCmmTop], [RegAllocStats] )
+           -- ^ code with registers allocated and stats for each stage of
+           -- allocation
                
 regAlloc dflags regsFree slotsFree code
  = do