[commit: ghc] master: StgSyn: Remove unused SRT constructor (1caff20)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/1caff20fad1e533d7dfb4215e69ce8678def943b/ghc

>---------------------------------------------------------------

commit 1caff20fad1e533d7dfb4215e69ce8678def943b
Author: Ömer Sinan Ağacan <omeragacan at gmail.com>
Date:   Wed Dec 2 14:35:27 2015 -0600

    StgSyn: Remove unused SRT constructor
    
    Reviewed By: bgamari, austin
    
    Differential Revision: https://phabricator.haskell.org/D1560


>---------------------------------------------------------------

1caff20fad1e533d7dfb4215e69ce8678def943b
 compiler/simplStg/UnariseStg.hs | 1 -
 compiler/stgSyn/StgSyn.hs       | 5 -----
 2 files changed, 6 deletions(-)

diff --git a/compiler/simplStg/UnariseStg.hs b/compiler/simplStg/UnariseStg.hs
index a1533ba..81de31b 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 1c6a00f..f0eb2d5 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*")
 
 {-
 ************************************************************************