From bf5882d264ddef5a0bdac5495a7900f009c8cbcf Mon Sep 17 00:00:00 2001
From: "Edward Z. Yang" <ezyang@mit.edu>
Date: Fri, 25 Mar 2011 12:01:08 +0000
Subject: [PATCH] Ignore comments when inlining.

---
 compiler/cmm/CmmOpt.hs |    1 +
 1 file changed, 1 insertion(+)

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
-- 
1.7.10.4