Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Tobias Decking
GHC
Commits
4e9b6d7b
Commit
4e9b6d7b
authored
May 06, 2005
by
simonpj
Browse files
[project @ 2005-05-06 11:06:14 by simonpj]
Rule overlap message should be only in ifdef DEBUG
parent
4224e90e
Changes
1
Hide whitespace changes
Inline
Side-by-side
ghc/compiler/specialise/Rules.lhs
View file @
4e9b6d7b
...
...
@@ -232,11 +232,15 @@ findBest target (rule,ans) [] = (rule,ans)
findBest target (rule1,ans1) ((rule2,ans2):prs)
| rule1 `isMoreSpecific` rule2 = findBest target (rule1,ans1) prs
| rule2 `isMoreSpecific` rule1 = findBest target (rule1,ans1) prs
#ifdef DEBUG
| otherwise = pprTrace "Rules.findBest: rule overlap (Rule 1 wins)"
(vcat [ptext SLIT("Expression to match:") <+> ppr fn <+> sep (map ppr args),
ptext SLIT("Rule 1:") <+> ppr rule1,
ptext SLIT("Rule 2:") <+> ppr rule2]) $
findBest target (rule1,ans1) prs
#else
| otherwise = findBest target (rule1,ans1) prs
#endif
where
(fn,args) = target
...
...
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