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
Alex D
GHC
Commits
980a3e89
Commit
980a3e89
authored
Apr 24, 2009
by
simonpj@microsoft.com
Browse files
Tiny optimisation to mkInlineMe
parent
b5a73581
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/coreSyn/CoreUtils.lhs
View file @
980a3e89
...
...
@@ -200,8 +200,9 @@ But it hardly seems worth it, so I don't bother.
-- | Wraps the given expression in an inlining hint unless the expression
-- is trivial in some sense, so that doing so would usually hurt us
mkInlineMe :: CoreExpr -> CoreExpr
mkInlineMe (Var v) = Var v
mkInlineMe e = Note InlineMe e
mkInlineMe e@(Var _) = e
mkInlineMe e@(Note InlineMe _) = e
mkInlineMe e = Note InlineMe e
\end{code}
\begin{code}
...
...
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