From: simonmar <unknown>
Date: Fri, 23 Nov 2001 11:47:37 +0000 (+0000)
Subject: [project @ 2001-11-23 11:47:37 by simonmar]
X-Git-Tag: Approximately_9120_patches~539
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=7edf3bea6cc667ea3574cd7dc1b15f3a00c3bc9c;p=ghc-hetmet.git

[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
--- 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)