diff options
| author | Edward Z. Yang <ezyang@mit.edu> | 2011-03-25 12:01:08 +0000 |
|---|---|---|
| committer | Edward Z. Yang <ezyang@mit.edu> | 2011-03-25 12:01:08 +0000 |
| commit | bf5882d264ddef5a0bdac5495a7900f009c8cbcf (patch) | |
| tree | 6740f3283a81371a8ccfc7e80eca4350305b743c | |
| parent | 87c441135e53edbd6e322677e48e57ba1aec6bd8 (diff) | |
| download | haskell-bf5882d264ddef5a0bdac5495a7900f009c8cbcf.tar.gz | |
Ignore comments when inlining.
| -rw-r--r-- | compiler/cmm/CmmOpt.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/compiler/cmm/CmmOpt.hs b/compiler/cmm/CmmOpt.hs index df0555fe58..0dec26da6f 100644 --- a/compiler/cmm/CmmOpt.hs +++ b/compiler/cmm/CmmOpt.hs @@ -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 |