X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FnativeGen%2FAsmRegAlloc.lhs;h=16b84fefb2d3940d13562e6c8e5561229310ab69;hb=23c94851fb2c98d345d913d35a5a12bbc3a346bd;hp=00d5d79e568238328becb5f3783237528da6cf34;hpb=e7498a3ee1d0484d02a9e86633cc179c76ebf36e;p=ghc-hetmet.git

diff --git a/ghc/compiler/nativeGen/AsmRegAlloc.lhs b/ghc/compiler/nativeGen/AsmRegAlloc.lhs
index 00d5d79..16b84fe 100644
--- 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.