[project @ 1998-01-08 18:03:08 by simonm]

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

diff --git a/ghc/compiler/nativeGen/AsmRegAlloc.lhs b/ghc/compiler/nativeGen/AsmRegAlloc.lhs
index 6f8df0b..16b84fe 100644 (file)
--- a/ghc/compiler/nativeGen/AsmRegAlloc.lhs
+++ b/ghc/compiler/nativeGen/AsmRegAlloc.lhs
@@ -4,17 +4,16 @@
 \section[AsmRegAlloc]{Register allocator}
 
 \begin{code}
-#include "HsVersions.h"
-
 module AsmRegAlloc ( runRegAllocate, runHairyRegAllocate ) where       
 
-import Ubiq{-uitous-}
+#include "HsVersions.h"
 
-import MachCode                ( InstrList(..) )
+import MachCode                ( InstrList )
 import MachMisc                ( Instr )
 import MachRegs
 import RegAllocInfo
 
+import AbsCSyn         ( MagicId )
 import BitSet          ( BitSet )
 import FiniteMap       ( emptyFM, addListToFM, delListFromFM, lookupFM, keysFM )
 import Maybes          ( maybeToBool )
@@ -24,6 +23,7 @@ import OrdList                ( mkEmptyList, mkUnitList, mkSeqList, mkParList,
 import Stix            ( StixTree )
 import Unique          ( mkBuiltinUnique )
 import Util            ( mapAccumB, panic )
+import GlaExts         ( trace )
 \end{code}
 
 This is the generic register allocator.