X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fcmm%2FCmmOpt.hs;h=0dec26da6f5e236dfdfd0670bf2983ab955a64a1;hb=bf5882d264ddef5a0bdac5495a7900f009c8cbcf;hp=df0555fe58f027e963e283196e31c64d5830ddf6;hpb=87c441135e53edbd6e322677e48e57ba1aec6bd8;p=ghc-hetmet.git

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