From: simonmar <unknown>
Date: Tue, 2 Aug 2005 12:02:16 +0000 (+0000)
Subject: [project @ 2005-08-02 12:02:16 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~279
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=c6c1a5a7afe7436f8ce7b005c0293067d6d8d8f3;p=ghc-hetmet.git

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

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