From 7edf3bea6cc667ea3574cd7dc1b15f3a00c3bc9c Mon Sep 17 00:00:00 2001 From: simonmar Date: Fri, 23 Nov 2001 11:47:37 +0000 Subject: [PATCH] [project @ 2001-11-23 11:47:37 by simonmar] Call LDV_ENTER() on entry to a constructor in profiling mode. --- ghc/compiler/codeGen/CgConTbls.lhs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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) -- 1.7.10.4