X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FnativeGen%2FAsmRegAlloc.lhs;h=5922411801090a32d49e788b045632dbc9125b7e;hb=9ac80e8f546551607ed2193d884fa9252f166f98;hp=d9e6cf21b5ece80c871147721c90bdd8552e0c78;hpb=6a3f5f6beed9cec42c4b3a1b7cabc1809c838562;p=ghc-hetmet.git

diff --git a/ghc/compiler/nativeGen/AsmRegAlloc.lhs b/ghc/compiler/nativeGen/AsmRegAlloc.lhs
index d9e6cf2..5922411 100644
--- a/ghc/compiler/nativeGen/AsmRegAlloc.lhs
+++ b/ghc/compiler/nativeGen/AsmRegAlloc.lhs
@@ -14,11 +14,10 @@ import PprMach		( pprInstr )	-- Just for debugging
 import MachRegs
 import RegAllocInfo
 
-import FiniteMap	( FiniteMap, emptyFM, addListToFM, delListFromFM, 
-			  lookupFM, keysFM, eltsFM, mapFM, addToFM_C, addToFM,
-			  listToFM, fmToList, lookupWithDefaultFM )
-import Unique		( mkBuiltinUnique )
-import OrdList		( unitOL, appOL, fromOL, concatOL )
+import FiniteMap	( FiniteMap, emptyFM, 
+			  lookupFM, eltsFM, addToFM_C, addToFM,
+			  listToFM, fmToList )
+import OrdList		( fromOL )
 import Outputable
 import Unique		( Unique, Uniquable(..), mkPseudoUnique3 )
 import CLabel		( CLabel, pprCLabel )