diff options
| author | Sylvain Henry <sylvain@haskus.fr> | 2020-08-23 22:20:09 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-08-24 10:04:59 -0400 |
| commit | 05550a5abc369e1cc4fc48def532ca9ba9adcad7 (patch) | |
| tree | 43122cdcb6577c601f463f989415b8dd03d3b110 | |
| parent | a77b9ec2a6153065565bca7bb154fff35b830b82 (diff) | |
| download | haskell-05550a5abc369e1cc4fc48def532ca9ba9adcad7.tar.gz | |
Avoid roundtrip through SDoc
As found by @monoidal on https://gitlab.haskell.org/ghc/ghc/-/merge_requests/3885#note_295126
| -rw-r--r-- | compiler/GHC/CmmToAsm/Dwarf.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/compiler/GHC/CmmToAsm/Dwarf.hs b/compiler/GHC/CmmToAsm/Dwarf.hs index d09588841b..c179b2f1d2 100644 --- a/compiler/GHC/CmmToAsm/Dwarf.hs +++ b/compiler/GHC/CmmToAsm/Dwarf.hs @@ -179,9 +179,7 @@ procToDwarf config prc = DwarfSubprogram { dwChildren = map blockToDwarf (dblBlocks prc) , dwName = case dblSourceTick prc of Just s@SourceNote{} -> sourceName s - _otherwise -> renderWithContext defaultSDocContext - $ withPprStyle defaultDumpStyle - $ ppr (dblLabel prc) + _otherwise -> show (dblLabel prc) , dwLabel = dblCLabel prc , dwParent = fmap mkAsmTempDieLabel $ mfilter goodParent |