X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FcodeGen%2FCgProf.hs;fp=ghc%2Fcompiler%2FcodeGen%2FCgProf.hs;h=aaab2fcb7771f3eadbbcfd9cc1d78d19a3c6efdf;hb=c6c1a5a7afe7436f8ce7b005c0293067d6d8d8f3;hp=aa654fd4259717f5cc1ceec51ec40229946520a2;hpb=5962645829c856afb7dcc9e2bd62a086f6c1e71b;p=ghc-hetmet.git

diff --git a/ghc/compiler/codeGen/CgProf.hs b/ghc/compiler/codeGen/CgProf.hs
index aa654fd..aaab2fc 100644
--- a/ghc/compiler/codeGen/CgProf.hs
+++ b/ghc/compiler/codeGen/CgProf.hs
@@ -259,6 +259,7 @@ enterCostCentreThunk closure =
     stmtC $ CmmStore curCCSAddr (costCentreFrom closure)
 
 enter_ccs_fun stack = emitRtsCall SLIT("EnterFunCCS") [(stack,PtrHint)]
+			-- ToDo: vols
 
 enter_ccs_fsub = enteringPAP 0