diff options
author | Ben Gamari <ben@smart-cactus.org> | 2022-01-26 22:32:19 -0500 |
---|---|---|
committer | Ben Gamari <ben@smart-cactus.org> | 2022-01-29 14:52:56 -0500 |
commit | ea2a403451caa15beca77af42fe0c34e7f1d7dc4 (patch) | |
tree | 48002eb2a8fa1da9ac2c555fd76e83e2db642701 /compiler/GHC/CmmToAsm.hs | |
parent | 88fea6aaecc8818d370d2e6952df6549484eb108 (diff) | |
download | haskell-ea2a403451caa15beca77af42fe0c34e7f1d7dc4.tar.gz |
CmmToAsm: Drop ncgExpandTop
This was only needed for SPARC's synthetic instructions.
Diffstat (limited to 'compiler/GHC/CmmToAsm.hs')
-rw-r--r-- | compiler/GHC/CmmToAsm.hs | 15 |
1 files changed, 2 insertions, 13 deletions
diff --git a/compiler/GHC/CmmToAsm.hs b/compiler/GHC/CmmToAsm.hs index d59f716e95..e7a392d822 100644 --- a/compiler/GHC/CmmToAsm.hs +++ b/compiler/GHC/CmmToAsm.hs @@ -669,29 +669,18 @@ cmmNativeGen logger modLoc ncgImpl us fileIds dbgMap cmm count invert (CmmProc info lbl live (ListGraph blocks)) = CmmProc info lbl live (ListGraph $ invertConds info blocks) - ---- expansion of SPARC synthetic instrs - let expanded = - {-# SCC "sparc_expand" #-} - ncgExpandTop ncgImpl branchOpt - --ncgExpandTop ncgImpl sequenced - - putDumpFileMaybe logger - Opt_D_dump_asm_expanded "Synthetic instructions expanded" - FormatCMM - (vcat $ map (pprNatCmmDecl ncgImpl) expanded) - -- generate unwinding information from cmm let unwinds :: BlockMap [UnwindPoint] unwinds = {-# SCC "unwindingInfo" #-} - foldl' addUnwind mapEmpty expanded + foldl' addUnwind mapEmpty branchOpt where addUnwind acc proc = acc `mapUnion` computeUnwinding config ncgImpl proc return ( usAlloc , fileIds' - , expanded + , branchOpt , lastMinuteImports ++ imports , ppr_raStatsColor , ppr_raStatsLinear |