Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
ca816c6d
Commit
ca816c6d
authored
Oct 06, 2015
by
Simon Peyton Jones
Browse files
Remove dead code: ruleLhsOrphNames
parent
0e169a8b
Changes
2
Show whitespace changes
Inline
Side-by-side
compiler/coreSyn/CoreFVs.hs
View file @
ca816c6d
...
...
@@ -24,7 +24,7 @@ module CoreFVs (
idUnfoldingVars
,
idFreeVars
,
idRuleAndUnfoldingVars
,
idRuleVars
,
idRuleRhsVars
,
stableUnfoldingVars
,
ruleRhsFreeVars
,
ruleFreeVars
,
rulesFreeVars
,
ruleLhsOrphNames
,
ruleLhsFreeIds
,
exprsOrphNames
,
ruleLhsFreeIds
,
exprsOrphNames
,
vectsFreeVars
,
-- * Core syntax tree annotation with free variables
...
...
@@ -215,21 +215,6 @@ tickish_fvs _ = noVars
************************************************************************
-}
-- | ruleLhsOrphNames is used when deciding whether
-- a rule is an orphan. In particular, suppose that T is defined in this
-- module; we want to avoid declaring that a rule like:
--
-- > fromIntegral T = fromIntegral_T
--
-- is an orphan. Of course it isn't, and declaring it an orphan would
-- make the whole module an orphan module, which is bad.
ruleLhsOrphNames
::
CoreRule
->
NameSet
ruleLhsOrphNames
(
BuiltinRule
{
ru_fn
=
fn
})
=
unitNameSet
fn
ruleLhsOrphNames
(
Rule
{
ru_fn
=
fn
,
ru_args
=
tpl_args
})
=
extendNameSet
(
exprsOrphNames
tpl_args
)
fn
-- No need to delete bndrs, because
-- exprsOrphNames finds only External names
-- | Finds the free /external/ names of an expression, notably
-- including the names of type constructors (which of course do not show
-- up in 'exprFreeVars').
...
...
compiler/specialise/Rules.hs
View file @
ca816c6d
...
...
@@ -180,7 +180,6 @@ mkRule this_mod is_auto is_local name act fn bndrs args rhs
-- A rule is an orphan only if none of the variables
-- mentioned on its left-hand side are locally defined
lhs_names
=
nameSetElems
(
extendNameSet
(
exprsOrphNames
args
)
fn
)
-- TODO: copied from ruleLhsOrphNames
-- Since rules get eventually attached to one of the free names
-- from the definition when compiling the ABI hash, we should make
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment