[project @ 2005-08-02 12:02:16 by simonmar]

[ghc-hetmet.git] / ghc / compiler / codeGen / CgProf.hs

diff --git a/ghc/compiler/codeGen/CgProf.hs b/ghc/compiler/codeGen/CgProf.hs
index aa654fd..aaab2fc 100644 (file)
--- 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