diff options
| author | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2015-12-02 14:35:27 -0600 |
|---|---|---|
| committer | Austin Seipp <austin@well-typed.com> | 2015-12-02 14:37:45 -0600 |
| commit | 1caff20fad1e533d7dfb4215e69ce8678def943b (patch) | |
| tree | 618328ae2c417ba7fb04886b9c5a9b15150386d8 /compiler/stgSyn | |
| parent | d00cdf237f28d72df74157bfdf30e623786b68c3 (diff) | |
| download | haskell-1caff20fad1e533d7dfb4215e69ce8678def943b.tar.gz | |
StgSyn: Remove unused SRT constructor
Reviewed By: bgamari, austin
Differential Revision: https://phabricator.haskell.org/D1560
Diffstat (limited to 'compiler/stgSyn')
| -rw-r--r-- | compiler/stgSyn/StgSyn.hs | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/compiler/stgSyn/StgSyn.hs b/compiler/stgSyn/StgSyn.hs index 1c6a00f147..f0eb2d5e93 100644 --- a/compiler/stgSyn/StgSyn.hs +++ b/compiler/stgSyn/StgSyn.hs @@ -46,7 +46,6 @@ module StgSyn ( #include "HsVersions.h" -import Bitmap import CoreSyn ( AltCon, Tickish ) import CostCentre ( CostCentreStack ) import Data.List ( intersperse ) @@ -604,18 +603,14 @@ data SRT = NoSRT | SRTEntries IdSet -- generated by CoreToStg - | SRT !Int{-offset-} !Int{-length-} !Bitmap{-bitmap-} - -- generated by computeSRTs nonEmptySRT :: SRT -> Bool nonEmptySRT NoSRT = False nonEmptySRT (SRTEntries vs) = not (isEmptyVarSet vs) -nonEmptySRT _ = True pprSRT :: SRT -> SDoc pprSRT (NoSRT) = ptext (sLit "_no_srt_") pprSRT (SRTEntries ids) = text "SRT:" <> ppr ids -pprSRT (SRT off _ _) = parens (ppr off <> comma <> text "*bitmap*") {- ************************************************************************ |