From 1f03870f6ede10a94a784a484d74f669966606b9 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Thu, 27 Nov 2008 09:01:45 +0000 Subject: [PATCH] don't emit CmmComments for now - if the string contains */, we need to fix it (demonstrated by building Cabal with -fvia-C) - the strings can get quite large, so we probably only want to inject comments when some debugging option is on. --- compiler/cmm/PprC.hs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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 -- 1.7.10.4