diff options
| author | Sylvain Henry <sylvain@haskus.fr> | 2020-08-19 11:53:24 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-08-21 09:36:38 -0400 |
| commit | 659eb31b7a40f0aa2ba43c3454b5d9006fde837d (patch) | |
| tree | 3c4cf4092cd6f7b753971c9fce73ca78b8bc3fae /compiler/GHC/CmmToAsm/PPC | |
| parent | 50eb4460cd8412387e0c3755a9e0bafaced12bb2 (diff) | |
| download | haskell-659eb31b7a40f0aa2ba43c3454b5d9006fde837d.tar.gz | |
NCG: Dwarf configuration
* remove references to DynFlags in GHC.CmmToAsm.Dwarf
* add specific Dwarf options in NCGConfig instead of directly querying
the debug level
Diffstat (limited to 'compiler/GHC/CmmToAsm/PPC')
| -rw-r--r-- | compiler/GHC/CmmToAsm/PPC/Ppr.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/GHC/CmmToAsm/PPC/Ppr.hs b/compiler/GHC/CmmToAsm/PPC/Ppr.hs index 3622121e6c..259159aa44 100644 --- a/compiler/GHC/CmmToAsm/PPC/Ppr.hs +++ b/compiler/GHC/CmmToAsm/PPC/Ppr.hs @@ -64,7 +64,7 @@ pprNatCmmDecl config proc@(CmmProc top_info lbl _ (ListGraph blocks)) = _ -> pprLabel platform lbl) $$ -- blocks guaranteed not null, -- so label needed vcat (map (pprBasicBlock config top_info) blocks) $$ - (if ncgDebugLevel config > 0 + (if ncgDwarfEnabled config then ppr (mkAsmTempEndLabel lbl) <> char ':' else empty) $$ pprSizeDecl platform lbl @@ -131,7 +131,7 @@ pprBasicBlock config info_env (BasicBlock blockid instrs) = maybe_infotable $$ pprLabel platform asmLbl $$ vcat (map (pprInstr platform) instrs) $$ - (if ncgDebugLevel config > 0 + (if ncgDwarfEnabled config then ppr (mkAsmTempEndLabel asmLbl) <> char ':' else empty ) |