Commit 9df9490c authored by Ömer Sinan Ağacan's avatar Ömer Sinan Ağacan

StgSyn: Remove unused StgLiveVars types

parent 4dcbbd1d
...@@ -13,7 +13,6 @@ generation. ...@@ -13,7 +13,6 @@ generation.
module StgSyn ( module StgSyn (
GenStgArg(..), GenStgArg(..),
GenStgLiveVars,
GenStgBinding(..), GenStgExpr(..), GenStgRhs(..), GenStgBinding(..), GenStgExpr(..), GenStgRhs(..),
GenStgAlt, AltType(..), GenStgAlt, AltType(..),
...@@ -25,7 +24,7 @@ module StgSyn ( ...@@ -25,7 +24,7 @@ module StgSyn (
combineStgBinderInfo, combineStgBinderInfo,
-- a set of synonyms for the most common (only :-) parameterisation -- a set of synonyms for the most common (only :-) parameterisation
StgArg, StgLiveVars, StgArg,
StgBinding, StgExpr, StgRhs, StgAlt, StgBinding, StgExpr, StgRhs, StgAlt,
-- StgOp -- StgOp
...@@ -37,8 +36,7 @@ module StgSyn ( ...@@ -37,8 +36,7 @@ module StgSyn (
stgArgType, stgArgType,
stripStgTicksTop, stripStgTicksTop,
pprStgBinding, pprStgBindings, pprStgBinding, pprStgBindings
pprStgLVs
) where ) where
#include "HsVersions.h" #include "HsVersions.h"
...@@ -62,8 +60,6 @@ import PrimOp ( PrimOp, PrimCall ) ...@@ -62,8 +60,6 @@ import PrimOp ( PrimOp, PrimCall )
import TyCon ( PrimRep(..), TyCon ) import TyCon ( PrimRep(..), TyCon )
import Type ( Type ) import Type ( Type )
import RepType ( typePrimRep ) import RepType ( typePrimRep )
import UniqFM
import UniqSet
import Unique ( Unique ) import Unique ( Unique )
import Util import Util
...@@ -176,8 +172,6 @@ There is no constructor for a lone variable; it would appear as ...@@ -176,8 +172,6 @@ There is no constructor for a lone variable; it would appear as
@StgApp var []@. @StgApp var []@.
-} -}
type GenStgLiveVars occ = UniqSet occ
data GenStgExpr bndr occ data GenStgExpr bndr occ
= StgApp = StgApp
occ -- function occ -- function
...@@ -560,7 +554,6 @@ This happens to be the only one we use at the moment. ...@@ -560,7 +554,6 @@ This happens to be the only one we use at the moment.
type StgBinding = GenStgBinding Id Id type StgBinding = GenStgBinding Id Id
type StgArg = GenStgArg Id type StgArg = GenStgArg Id
type StgLiveVars = GenStgLiveVars Id
type StgExpr = GenStgExpr Id Id type StgExpr = GenStgExpr Id Id
type StgRhs = GenStgRhs Id Id type StgRhs = GenStgRhs Id Id
type StgAlt = GenStgAlt Id Id type StgAlt = GenStgAlt Id Id
...@@ -762,14 +755,6 @@ instance Outputable AltType where ...@@ -762,14 +755,6 @@ instance Outputable AltType where
ppr (AlgAlt tc) = text "Alg" <+> ppr tc ppr (AlgAlt tc) = text "Alg" <+> ppr tc
ppr (PrimAlt tc) = text "Prim" <+> ppr tc ppr (PrimAlt tc) = text "Prim" <+> ppr tc
pprStgLVs :: Outputable occ => GenStgLiveVars occ -> SDoc
pprStgLVs lvs
= getPprStyle $ \ sty ->
if userStyle sty || isEmptyUniqSet lvs then
empty
else
hcat [text "{-lvs:", pprUFM lvs interpp'SP, text "-}"]
pprStgRhs :: (OutputableBndr bndr, Outputable bdee, Ord bdee) pprStgRhs :: (OutputableBndr bndr, Outputable bdee, Ord bdee)
=> GenStgRhs bndr bdee -> SDoc => GenStgRhs bndr bdee -> SDoc
......
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