Commit 1caff20f authored by Ömer Sinan Ağacan's avatar Ömer Sinan Ağacan Committed by Austin Seipp
Browse files

StgSyn: Remove unused SRT constructor

Reviewed By: bgamari, austin

Differential Revision: https://phabricator.haskell.org/D1560
parent d00cdf23
...@@ -164,7 +164,6 @@ unariseAlt us rho (con, xs, uses, e) ...@@ -164,7 +164,6 @@ unariseAlt us rho (con, xs, uses, e)
unariseSRT :: UnariseEnv -> SRT -> SRT unariseSRT :: UnariseEnv -> SRT -> SRT
unariseSRT _ NoSRT = NoSRT unariseSRT _ NoSRT = NoSRT
unariseSRT rho (SRTEntries ids) = SRTEntries (concatMapVarSet (unariseId rho) ids) unariseSRT rho (SRTEntries ids) = SRTEntries (concatMapVarSet (unariseId rho) ids)
unariseSRT _ (SRT {}) = panic "unariseSRT"
unariseLives :: UnariseEnv -> StgLiveVars -> StgLiveVars unariseLives :: UnariseEnv -> StgLiveVars -> StgLiveVars
unariseLives rho ids = concatMapVarSet (unariseId rho) ids unariseLives rho ids = concatMapVarSet (unariseId rho) ids
......
...@@ -46,7 +46,6 @@ module StgSyn ( ...@@ -46,7 +46,6 @@ module StgSyn (
#include "HsVersions.h" #include "HsVersions.h"
import Bitmap
import CoreSyn ( AltCon, Tickish ) import CoreSyn ( AltCon, Tickish )
import CostCentre ( CostCentreStack ) import CostCentre ( CostCentreStack )
import Data.List ( intersperse ) import Data.List ( intersperse )
...@@ -604,18 +603,14 @@ data SRT ...@@ -604,18 +603,14 @@ data SRT
= NoSRT = NoSRT
| SRTEntries IdSet | SRTEntries IdSet
-- generated by CoreToStg -- generated by CoreToStg
| SRT !Int{-offset-} !Int{-length-} !Bitmap{-bitmap-}
-- generated by computeSRTs
nonEmptySRT :: SRT -> Bool nonEmptySRT :: SRT -> Bool
nonEmptySRT NoSRT = False nonEmptySRT NoSRT = False
nonEmptySRT (SRTEntries vs) = not (isEmptyVarSet vs) nonEmptySRT (SRTEntries vs) = not (isEmptyVarSet vs)
nonEmptySRT _ = True
pprSRT :: SRT -> SDoc pprSRT :: SRT -> SDoc
pprSRT (NoSRT) = ptext (sLit "_no_srt_") pprSRT (NoSRT) = ptext (sLit "_no_srt_")
pprSRT (SRTEntries ids) = text "SRT:" <> ppr ids pprSRT (SRTEntries ids) = text "SRT:" <> ppr ids
pprSRT (SRT off _ _) = parens (ppr off <> comma <> text "*bitmap*")
{- {-
************************************************************************ ************************************************************************
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment