[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 00d5d79..16b84fe 100644 (file)
--- a/ghc/compiler/nativeGen/AsmRegAlloc.lhs
+++ b/ghc/compiler/nativeGen/AsmRegAlloc.lhs
@@ -4,13 +4,11 @@
 \section[AsmRegAlloc]{Register allocator}
 
 \begin{code}
-#include "HsVersions.h"
-
 module AsmRegAlloc ( runRegAllocate, runHairyRegAllocate ) where       
 
-IMP_Ubiq(){-uitous-}
+#include "HsVersions.h"
 
-import MachCode                ( InstrList(..) )
+import MachCode                ( InstrList )
 import MachMisc                ( Instr )
 import MachRegs
 import RegAllocInfo
@@ -25,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.