[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 54af675..16b84fe 100644 (file)
--- a/ghc/compiler/nativeGen/AsmRegAlloc.lhs
+++ b/ghc/compiler/nativeGen/AsmRegAlloc.lhs
@@ -4,19 +4,13 @@
 \section[AsmRegAlloc]{Register allocator}
 
 \begin{code}
-#include "HsVersions.h"
-
 module AsmRegAlloc ( runRegAllocate, runHairyRegAllocate ) where       
 
-IMP_Ubiq(){-uitous-}
+#include "HsVersions.h"
 
-import MachCode                ( SYN_IE(InstrList) )
+import MachCode                ( InstrList )
 import MachMisc                ( Instr )
-#if __GLASGOW_HASKELL__ >= 202
-import MachRegs         hiding (Addr)
-#else
 import MachRegs
-#endif
 import RegAllocInfo
 
 import AbsCSyn         ( MagicId )
@@ -29,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.