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

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)
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
......
......@@ -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*")
{-
************************************************************************
......
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