diff options
author | Simon Marlow <marlowsd@gmail.com> | 2008-11-27 09:01:45 +0000 |
---|---|---|
committer | Simon Marlow <marlowsd@gmail.com> | 2008-11-27 09:01:45 +0000 |
commit | 1f03870f6ede10a94a784a484d74f669966606b9 (patch) | |
tree | 2652cc21466cbe935cc6d1aa036fbd0fda4d24d1 /compiler/cmm | |
parent | 611deea9a835d9c0d6d991af78739732a26aa21a (diff) | |
download | haskell-1f03870f6ede10a94a784a484d74f669966606b9.tar.gz |
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.
Diffstat (limited to 'compiler/cmm')
-rw-r--r-- | compiler/cmm/PprC.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/compiler/cmm/PprC.hs b/compiler/cmm/PprC.hs index 3db1be51eb..665122e224 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 |