Commit 1f03870f authored by Simon Marlow's avatar Simon Marlow

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.
parent 611deea9
......@@ -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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment