diff options
| author | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2019-08-29 13:17:30 +0300 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2019-08-31 17:55:13 -0400 |
| commit | e56251f647bbb8e851bf3a3fbd9eb2ee7a0666c7 (patch) | |
| tree | 8331ffe8c30d941dfec5634fc00b639f33fbdc82 /compiler | |
| parent | 7e6aeb13dae82bbff1daeea18fad7b8cf0da991b (diff) | |
| download | haskell-e56251f647bbb8e851bf3a3fbd9eb2ee7a0666c7.tar.gz | |
Remove redundant special case in STG pretty-printer
This special case existed for no reason, and made things inconsistent.
Before
Boolean.$bT :: Boolean.Boolean
[GblId, Str=m, Unf=OtherCon []] =
CAF_ccs \ u [] Boolean.$bT1;
After
Boolean.$bF :: Boolean.Boolean
[GblId, Str=m, Unf=OtherCon []] =
\u [] Boolean.$bF1;
The cost-centre is now hidden when not profiling, as is the case with
other types of closures.
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/stgSyn/StgSyn.hs | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/compiler/stgSyn/StgSyn.hs b/compiler/stgSyn/StgSyn.hs index 2448fbcfc8..0507635b94 100644 --- a/compiler/stgSyn/StgSyn.hs +++ b/compiler/stgSyn/StgSyn.hs @@ -68,7 +68,6 @@ import Data.Data ( Data ) import Data.List ( intersperse ) import DataCon import DynFlags -import FastString import ForeignCall ( ForeignCall ) import Id import IdInfo ( mayHaveCafRefs ) @@ -859,15 +858,6 @@ instance Outputable AltType where pprStgRhs :: OutputablePass pass => GenStgRhs pass -> SDoc --- special case -pprStgRhs (StgRhsClosure ext cc upd_flag [{-no args-}] (StgApp func [])) - = sdocWithDynFlags $ \dflags -> - hsep [ ppr cc, - if not $ gopt Opt_SuppressStgExts dflags - then ppr ext else empty, - text " \\", ppr upd_flag, ptext (sLit " [] "), ppr func ] - --- general case pprStgRhs (StgRhsClosure ext cc upd_flag args body) = sdocWithDynFlags $ \dflags -> hang (hsep [if gopt Opt_SccProfilingOn dflags then ppr cc else empty, |