Commit bf5882d2 authored by Edward Z. Yang's avatar Edward Z. Yang

Ignore comments when inlining.

parent 87c44113
......@@ -142,6 +142,7 @@ lookForInline u expr (stmt : rest)
-- single-assignment.
ok_to_skip = case stmt of
CmmNop -> True
CmmComment{} -> True
CmmAssign (CmmLocal (LocalReg u' _)) rhs | u' /= u -> True
CmmAssign g@(CmmGlobal _) rhs -> not (g `regUsedIn` expr)
_other -> False
......
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