Ignore comments when inlining.

diff --git a/compiler/cmm/CmmOpt.hs b/compiler/cmm/CmmOpt.hs
index df0555f..0dec26d 100644 (file)
--- 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