Ignore comments when inlining.
[ghc-hetmet.git] / compiler / cmm / CmmOpt.hs
index df0555f..0dec26d 100644 (file)
@@ -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