diff options
| author | Krzysztof Gogolewski <krzysztof.gogolewski@tweag.io> | 2022-07-26 21:43:06 +0200 |
|---|---|---|
| committer | Krzysztof Gogolewski <krzysztof.gogolewski@tweag.io> | 2022-07-29 17:55:08 +0200 |
| commit | 9de205be967c365976bc440722f969f0dfe1db54 (patch) | |
| tree | bb384a2c47b2bc135f7fd89eec6865de1312dae9 /compiler/GHC/Cmm/CLabel.hs | |
| parent | 079d294f41b69864c46caf22adc3ba4248e6c649 (diff) | |
| download | haskell-wip/cleanup-printing.tar.gz | |
Always use code style in pprCLabelwip/cleanup-printing
Diffstat (limited to 'compiler/GHC/Cmm/CLabel.hs')
| -rw-r--r-- | compiler/GHC/Cmm/CLabel.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/GHC/Cmm/CLabel.hs b/compiler/GHC/Cmm/CLabel.hs index a09a7777f4..a9a787626a 100644 --- a/compiler/GHC/Cmm/CLabel.hs +++ b/compiler/GHC/Cmm/CLabel.hs @@ -1468,7 +1468,7 @@ pprCLabel !platform !sty lbl = -- see Note [Bangs in CLabel] if isRandomGenerated then asmTempLabelPrefix platform else empty - CStyle -> ppr name <> ppIdFlavor flavor + CStyle -> pprCodeName name <> ppIdFlavor flavor SRTLabel u -> maybe_underscore $ tempLabelPrefixOrUnderscore <> pprUniqueAlways u <> pp_cSEP <> text "srt" @@ -1520,8 +1520,8 @@ pprCLabel !platform !sty lbl = -- see Note [Bangs in CLabel] HpcTicksLabel mod -> maybe_underscore $ text "_hpc_tickboxes_" <> ppr mod <> text "_hpc" - CC_Label cc -> maybe_underscore $ ppr cc - CCS_Label ccs -> maybe_underscore $ ppr ccs + CC_Label cc -> maybe_underscore $ pprCodeCostCentre cc + CCS_Label ccs -> maybe_underscore $ pprCodeCostCentreStack ccs IPE_Label (InfoProvEnt l _ _ m _) -> maybe_underscore $ (pprCLabel platform CStyle l <> text "_" <> ppr m <> text "_ipe") ModuleLabel mod kind -> maybe_underscore $ ppr mod <> text "_" <> ppr kind |