[project @ 2001-11-23 11:47:37 by simonmar]

Call LDV_ENTER() on entry to a constructor in profiling mode.

diff --git a/ghc/compiler/codeGen/CgConTbls.lhs b/ghc/compiler/codeGen/CgConTbls.lhs
index 757f93b..43ae111 100644 (file)
--- a/ghc/compiler/codeGen/CgConTbls.lhs
+++ b/ghc/compiler/codeGen/CgConTbls.lhs
@@ -19,7 +19,7 @@ import Name           ( getOccName )
 import OccName         ( occNameUserString )
 import TyCon           ( tyConDataCons, isEnumerationTyCon, TyCon )
 import Type            ( typePrimRep )
-import CmdLineOpts     ( opt_EnsureSplittableC )
+import CmdLineOpts
 \end{code}
 
 For every constructor we generate the following info tables:
@@ -119,6 +119,7 @@ genConInfo comp_info data_con
 
     body       = initC comp_info (
                      profCtrC SLIT("TICK_ENT_CON") [CReg node] `thenC`
+                     ldvEnter `thenC`
                      body_code)
 
     con_descr  = occNameUserString (getOccName data_con)