X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FnativeGen%2FSPARC%2FCodeGen.hs;h=a4dbbe877152fe79836b21b10cee983179cbbf38;hp=beb48d66569c5ca3d7cab0fb13d54b652d118c72;hb=8133a9f47b99f4e65ed30551de32ad72c6b61b27;hpb=265bedd9b4869cf5f323ab32ed1e4af0f7a0bfe0

diff --git a/compiler/nativeGen/SPARC/CodeGen.hs b/compiler/nativeGen/SPARC/CodeGen.hs
index beb48d6..a4dbbe8 100644
--- a/compiler/nativeGen/SPARC/CodeGen.hs
+++ b/compiler/nativeGen/SPARC/CodeGen.hs
@@ -47,15 +47,13 @@ import Outputable
 import Unique
 
 import Control.Monad	( mapAndUnzipM )
-import DynFlags
 
 -- | Top level code generation
 cmmTopCodeGen 
-	:: DynFlags
-	-> RawCmmTop 
+	:: RawCmmTop 
 	-> NatM [NatCmmTop Instr]
 
-cmmTopCodeGen _
+cmmTopCodeGen
 	(CmmProc info lab (ListGraph blocks)) 
  = do	
  	(nat_blocks,statics) <- mapAndUnzipM basicBlockCodeGen blocks
@@ -65,7 +63,7 @@ cmmTopCodeGen _
 
   	return tops
   
-cmmTopCodeGen _ (CmmData sec dat) = do
+cmmTopCodeGen (CmmData sec dat) = do
   return [CmmData sec dat]  -- no translation, we just use CmmStatic