[project @ 2001-10-16 15:48:30 by simonmar]

top-level constructor workers should have CCS_SUBSUMED, not NO_CCS.

diff --git a/ghc/compiler/codeGen/CgConTbls.lhs b/ghc/compiler/codeGen/CgConTbls.lhs
index 5b862fd..ee5b37b 100644 (file)
--- a/ghc/compiler/codeGen/CgConTbls.lhs
+++ b/ghc/compiler/codeGen/CgConTbls.lhs
@@ -13,7 +13,7 @@ import StgSyn
 import CgMonad
 
 import AbsCUtils       ( mkAbstractCs, mkAbsCStmts )
-import CostCentre      ( noCCS )
+import CostCentre      ( subsumedCCS )
 import CgCon           ( cgTopRhsCon )
 import CgClosure       ( cgTopRhsClosure )
 import CgTailCall      ( performReturn, mkStaticAlgReturnCode )
@@ -184,7 +184,7 @@ cgWorker data_con
 
   | otherwise
   = cgTopRhsClosure work_id
-           noCCS noBinderInfo NoSRT
+           subsumedCCS noBinderInfo NoSRT
            arg_ids rhs
            lf_info
   where