[project @ 1996-07-15 16:16:46 by partain]

[ghc-hetmet.git] / ghc / compiler / nativeGen / RegAllocInfo.lhs

diff --git a/ghc/compiler/nativeGen/RegAllocInfo.lhs b/ghc/compiler/nativeGen/RegAllocInfo.lhs
index 93cda5c..22a7618 100644 (file)
--- a/ghc/compiler/nativeGen/RegAllocInfo.lhs
+++ b/ghc/compiler/nativeGen/RegAllocInfo.lhs
@@ -24,8 +24,8 @@ module RegAllocInfo (
        regUsage,
 
        FutureLive(..),
-       RegAssignment(..),
-       RegConflicts(..),
+       SYN_IE(RegAssignment),
+       SYN_IE(RegConflicts),
        RegFuture(..),
        RegHistory(..),
        RegInfo(..),
@@ -37,7 +37,7 @@ module RegAllocInfo (
        regLiveness,
        spillReg,
 
-       RegSet(..),
+       SYN_IE(RegSet),
        elementOfRegSet,
        emptyRegSet,
        isEmptyRegSet,
@@ -51,15 +51,17 @@ module RegAllocInfo (
        freeRegSet
     ) where
 
-import Ubiq{-uitous-}
+IMP_Ubiq(){-uitous-}
+IMPORT_1_3(List(partition))
 
 import MachMisc
 import MachRegs
-import MachCode                ( InstrList(..) )
+import MachCode                ( SYN_IE(InstrList) )
 
+import AbsCSyn         ( MagicId )
 import BitSet          ( unitBS, mkBS, minusBS, unionBS, listBS, BitSet )
 import CLabel          ( pprCLabel_asm, CLabel{-instance Ord-} )
-import FiniteMap       ( addToFM, lookupFM )
+import FiniteMap       ( addToFM, lookupFM, FiniteMap )
 import OrdList         ( mkUnitList, OrdList )
 import PrimRep         ( PrimRep(..) )
 import Stix            ( StixTree, CodeSegment )