X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fcmm%2FPprC.hs;h=8a2da2343ba9cc6ac7ffe3adf66e22100a39732b;hb=4f92da533cd1c7b5f41ef8794ee6a284f1680413;hp=e46e0e7f89f72cf0cc9f268e148a9f3002f57315;hpb=c245355e6f2c7b7c95e9af910c4d420e13af9413;p=ghc-hetmet.git

diff --git a/compiler/cmm/PprC.hs b/compiler/cmm/PprC.hs
index e46e0e7..8a2da23 100644
--- a/compiler/cmm/PprC.hs
+++ b/compiler/cmm/PprC.hs
@@ -16,6 +16,8 @@
 --
 -- Print Cmm as real C, for -fvia-C
 --
+-- See wiki:Commentary/Compiler/Backends/PprC
+--
 -- This is simpler than the old PprAbsC, because Cmm is "macro-expanded"
 -- relative to the old AbstractC, and many oddities/decorations have
 -- disappeared from the data type.
@@ -206,6 +208,7 @@ pprStmt stmt = case stmt of
 	where
         ppr_fn = parens (cCast (pprCFunType (char '*') cconv results args) fn)
 
+        -- See wiki:Commentary/Compiler/Backends/PprC#Prototypes
     	maybe_proto = 
             case fn of
 	      CmmLit (CmmLabel lbl) | not (isMathFun lbl) ->