Skip to content
GitLab
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
52ed7391
Commit
52ed7391
authored
Jul 28, 2005
by
simonpj
Browse files
[project @ 2005-07-28 12:48:25 by simonpj]
Fix another minor bogon in the new rules stuff
parent
6edd4302
Changes
1
Hide whitespace changes
Inline
Side-by-side
ghc/compiler/simplCore/SimplCore.lhs
View file @
52ed7391
...
...
@@ -18,7 +18,7 @@ import HscTypes ( HscEnv(..), ModGuts(..), ExternalPackageState(..),
import CSE ( cseProgram )
import Rules ( RuleBase, emptyRuleBase, mkRuleBase, unionRuleBase,
extendRuleBaseList, pprRuleBase, ruleCheckProgram,
mk
SpecInfo, addSpec
Info
)
add
SpecInfo, add
Id
Spec
ialisations
)
import PprCore ( pprCoreBindings, pprCoreExpr, pprRules )
import OccurAnal ( occurAnalysePgm, occurAnalyseExpr )
import IdInfo ( setNewStrictnessInfo, newStrictnessInfo,
...
...
@@ -33,7 +33,7 @@ import CoreLint ( endPass )
import FloatIn ( floatInwards )
import FloatOut ( floatOutwards )
import Id ( Id, modifyIdInfo, idInfo, isExportedId, isLocalId,
idSpecialisation,
setIdSpecialisation,
idName )
idSpecialisation, idName )
import VarSet
import VarEnv
import NameEnv ( lookupNameEnv )
...
...
@@ -266,7 +266,9 @@ updateBinders local_rules binds
update_bndr bndr = case lookupNameEnv local_rules (idName bndr) of
Nothing -> bndr
Just rules -> bndr `setIdSpecialisation` mkSpecInfo rules
Just rules -> bndr `addIdSpecialisations` rules
-- The binder might have some existing rules,
-- arising from specialisation pragmas
\end{code}
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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