NCG: Handle loops in register allocator

[ghc-hetmet.git] / ghc / compiler / nativeGen / AsmCodeGen.lhs

diff --git a/ghc/compiler/nativeGen/AsmCodeGen.lhs b/ghc/compiler/nativeGen/AsmCodeGen.lhs
index dcd785e..1576162 100644 (file)
--- a/ghc/compiler/nativeGen/AsmCodeGen.lhs
+++ b/ghc/compiler/nativeGen/AsmCodeGen.lhs
@@ -193,7 +193,7 @@ cmmNativeGen dflags cmm
      {-# SCC "genMachCode"      #-}
        genMachCode cmm              `thenUs` \ (pre_regalloc, lastMinuteImports) ->
      {-# SCC "regAlloc"         #-}
-       map regAlloc pre_regalloc    `bind`   \ with_regs ->
+       mapUs regAlloc pre_regalloc `thenUs`   \ with_regs ->
      {-# SCC "sequenceBlocks"   #-}
        map sequenceTop with_regs    `bind`   \ sequenced ->
      {-# SCC "x86fp_kludge"     #-}