X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fcmm%2FPprC.hs;fp=compiler%2Fcmm%2FPprC.hs;h=665122e22425b21a6cc895676f89f193b5dc2e80;hp=3db1be51ebb5519524e9d5e3bda9e9d17e8e7d9d;hb=1f03870f6ede10a94a784a484d74f669966606b9;hpb=611deea9a835d9c0d6d991af78739732a26aa21a

diff --git a/compiler/cmm/PprC.hs b/compiler/cmm/PprC.hs
index 3db1be5..665122e 100644
--- a/compiler/cmm/PprC.hs
+++ b/compiler/cmm/PprC.hs
@@ -192,7 +192,11 @@ pprStmt :: CmmStmt -> SDoc
 
 pprStmt stmt = case stmt of
     CmmNop       -> empty
-    CmmComment s -> (hang (ptext (sLit "/*")) 3 (ftext s)) $$ ptext (sLit "*/")
+    CmmComment s -> empty -- (hang (ptext (sLit "/*")) 3 (ftext s)) $$ ptext (sLit "*/")
+                          -- XXX if the string contains "*/", we need to fix it
+                          -- XXX we probably want to emit these comments when
+                          -- some debugging option is on.  They can get quite
+                          -- large.
 
     CmmAssign dest src -> pprAssign dest src