X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=compiler%2FnativeGen%2FAsmCodeGen.lhs;h=ae91b62c255bfce873d0b7ff2ada46dc4a127819;hb=914e415702a25a6e52ab1eaaf2aea233d6c6097e;hp=c7ea591ec36ef13f8add7e49ff14ae95a2200a9d;hpb=638583ad2ebe50e42a50fc494744fe516a4e7eac;p=ghc-hetmet.git

diff --git a/compiler/nativeGen/AsmCodeGen.lhs b/compiler/nativeGen/AsmCodeGen.lhs
index c7ea591..ae91b62 100644
--- a/compiler/nativeGen/AsmCodeGen.lhs
+++ b/compiler/nativeGen/AsmCodeGen.lhs
@@ -424,7 +424,7 @@ cmmNativeGen dflags ncgImpl us cmm count
 			= {-# SCC "RegAlloc" #-}
   			  initUs usLive
  			  $ liftM unzip
-			  $ mapUs Linear.regAlloc withLiveness
+			  $ mapUs (Linear.regAlloc dflags) withLiveness
 
 		dumpIfSet_dyn dflags
 			Opt_D_dump_asm_regalloc "Registers allocated"