diff options
| -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*") {- ************************************************************************ |