extended ticky to also track "let"s that are not closuresticky-for-all-lets

This includes selector, ap, and constructor thunks. They are still
guarded by the -ticky-dyn-thk flag.

1 files changed, 4 insertions, 3 deletions

diff --git a/compiler/codeGen/StgCmmExpr.hs b/compiler/codeGen/StgCmmExpr.hs
index 78080218f8..d7edf8e193 100644
--- a/compiler/codeGen/StgCmmExpr.hs
+++ b/compiler/codeGen/StgCmmExpr.hs
@@ -610,10 +610,11 @@ cgConApp con stg_args
 
   | otherwise   --  Boxed constructors; allocate and return
   = ASSERT( stg_args `lengthIs` dataConRepRepArity con )
-    do  { (idinfo, fcode_init) <- buildDynCon (dataConWorkId con)
+    do  { (idinfo, fcode_init) <- buildDynCon (dataConWorkId con) False
                                      currentCCS con stg_args
-                -- The first "con" says that the name bound to this closure is
-                -- is "con", which is a bit of a fudge, but it only affects profiling
+                -- The first "con" says that the name bound to this
+                -- closure is is "con", which is a bit of a fudge, but
+                -- it only affects profiling (hence the False)
 
         ; emit =<< fcode_init
         ; emitReturn [idInfoToAmode idinfo] }