diff options
Diffstat (limited to 'compiler/cmm/CLabel.hs')
| -rw-r--r-- | compiler/cmm/CLabel.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/compiler/cmm/CLabel.hs b/compiler/cmm/CLabel.hs index 9452b5f6c8..1a9e14c8f6 100644 --- a/compiler/cmm/CLabel.hs +++ b/compiler/cmm/CLabel.hs @@ -1302,8 +1302,8 @@ pprCLbl (RtsLabel (RtsSlowFastTickyCtr pat)) pprCLbl (ForeignLabel str _ _ _) = ftext str -pprCLbl (IdLabel name _cafs flavor) = - internalNamePrefix name <> ppr name <> ppIdFlavor flavor +pprCLbl (IdLabel name _cafs flavor) + = internalNamePrefix name <> ppr name <> ppIdFlavor flavor pprCLbl (CC_Label cc) = ppr cc pprCLbl (CCS_Label ccs) = ppr ccs @@ -1347,8 +1347,8 @@ instance Outputable ForeignLabelSource where ForeignLabelInExternalPackage -> parens $ text "external package" internalNamePrefix :: Name -> SDoc -internalNamePrefix name = getPprStyle $ \ sty -> - if asmStyle sty && isRandomGenerated then +internalNamePrefix name = sdocWithDynFlags $ \dflags -> getPprStyle $ \ sty -> + if asmStyle sty && isRandomGenerated && not (gopt Opt_ExposeAllSymbols dflags) then sdocWithPlatform $ \platform -> ptext (asmTempLabelPrefix platform) else |