diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-06-13 18:30:07 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-06-13 18:30:07 +0100 |
| commit | b522d3a3f970a043397a0d6556ca555648e7a9c3 (patch) | |
| tree | 515668f59eff1d8b88a8eca1c91809354b729d4a /compiler/nativeGen/AsmCodeGen.lhs | |
| parent | d6cef3c90c9395a5dae29897d333d5157a84778a (diff) | |
| download | haskell-b522d3a3f970a043397a0d6556ca555648e7a9c3.tar.gz | |
Stop exporting, and stop using, some deprecated functions
Diffstat (limited to 'compiler/nativeGen/AsmCodeGen.lhs')
| -rw-r--r-- | compiler/nativeGen/AsmCodeGen.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/nativeGen/AsmCodeGen.lhs b/compiler/nativeGen/AsmCodeGen.lhs index 15dd2dc90a..93e282ffe6 100644 --- a/compiler/nativeGen/AsmCodeGen.lhs +++ b/compiler/nativeGen/AsmCodeGen.lhs @@ -375,7 +375,7 @@ cmmNativeGen dflags ncgImpl us cmm count let (withLiveness, usLive) = {-# SCC "regLiveness" #-} initUs usGen - $ mapUs regLiveness + $ mapM regLiveness $ map natCmmTopToLive native dumpIfSet_dyn dflags @@ -434,7 +434,7 @@ cmmNativeGen dflags ncgImpl us cmm count = {-# SCC "RegAlloc" #-} initUs usLive $ liftM unzip - $ mapUs (Linear.regAlloc dflags) withLiveness + $ mapM (Linear.regAlloc dflags) withLiveness dumpIfSet_dyn dflags Opt_D_dump_asm_regalloc "Registers allocated" |