Commit 6b46a984 authored by simonmar's avatar simonmar
Browse files

[project @ 2005-01-13 16:32:34 by simonmar]

Small optimisation: allow lookForInline to skip over CmmNop too
parent b3f24cf8
......@@ -803,6 +803,9 @@ lookForInline u expr (stmt@(CmmAssign (CmmLocal (LocalReg u' _)) rhs) : rest)
Nothing -> Nothing
Just stmts -> Just (stmt:stmts)
lookForInline u expr (CmmNop : rest)
= lookForInline u expr rest
lookForInline u expr (stmt:stmts)
= case lookupUFM (getStmtUses stmt) u of
Just 1 -> Just (inlineStmt u expr stmt : stmts)
......
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