Commit 7edf3bea authored by simonmar's avatar simonmar
Browse files

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

Call LDV_ENTER() on entry to a constructor in profiling mode.
parent 97349545
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment