[project @ 1997-06-05 19:51:27 by sof]

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

diff --git a/ghc/compiler/nativeGen/AsmRegAlloc.lhs b/ghc/compiler/nativeGen/AsmRegAlloc.lhs
index 6f8df0b..54af675 100644 (file)
--- a/ghc/compiler/nativeGen/AsmRegAlloc.lhs
+++ b/ghc/compiler/nativeGen/AsmRegAlloc.lhs
@@ -8,13 +8,18 @@
 
 module AsmRegAlloc ( runRegAllocate, runHairyRegAllocate ) where       
 
-import Ubiq{-uitous-}
+IMP_Ubiq(){-uitous-}
 
-import MachCode                ( InstrList(..) )
+import MachCode                ( SYN_IE(InstrList) )
 import MachMisc                ( Instr )
+#if __GLASGOW_HASKELL__ >= 202
+import MachRegs         hiding (Addr)
+#else
 import MachRegs
+#endif
 import RegAllocInfo
 
+import AbsCSyn         ( MagicId )
 import BitSet          ( BitSet )
 import FiniteMap       ( emptyFM, addListToFM, delListFromFM, lookupFM, keysFM )
 import Maybes          ( maybeToBool )