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 | |
| 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')
| -rw-r--r-- | compiler/simplStg/UnariseStg.hs | 1 | ||||
| -rw-r--r-- | compiler/stgSyn/StgSyn.hs | 5 |
2 files changed, 0 insertions, 6 deletions
diff --git a/compiler/simplStg/UnariseStg.hs b/compiler/simplStg/UnariseStg.hs index a1533bacc8..81de31b86b 100644 --- a/compiler/simplStg/UnariseStg.hs +++ b/compiler/simplStg/UnariseStg.hs @@ -164,7 +164,6 @@ unariseAlt us rho (con, xs, uses, e) unariseSRT :: UnariseEnv -> SRT -> SRT unariseSRT _ NoSRT = NoSRT unariseSRT rho (SRTEntries ids) = SRTEntries (concatMapVarSet (unariseId rho) ids) -unariseSRT _ (SRT {}) = panic "unariseSRT" unariseLives :: UnariseEnv -> StgLiveVars -> StgLiveVars unariseLives rho ids = concatMapVarSet (unariseId rho) ids 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*") {- ************************************************************************ |