From: simonmar <unknown>
Date: Tue, 16 Oct 2001 15:48:30 +0000 (+0000)
Subject: [project @ 2001-10-16 15:48:30 by simonmar]
X-Git-Tag: Approximately_9120_patches~819
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=962d9ccb5eb672ae355575f441c0a997f86d9314;p=ghc-hetmet.git

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