X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FnativeGen%2FAsmCodeGen.lhs;fp=compiler%2FnativeGen%2FAsmCodeGen.lhs;h=ae91b62c255bfce873d0b7ff2ada46dc4a127819;hp=c7ea591ec36ef13f8add7e49ff14ae95a2200a9d;hb=3c2a7f3515ca15cdebb6242967f89e633cb59494;hpb=59244201b672b9d6f728edcf7e2e02a61fbe278f

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"