From f4722a9a0aa8cd89ee7e3346647d79f3c05f9733 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 17 Apr 2000 15:49:19 +0000
Subject: [PATCH] [project @ 2000-04-17 15:49:19 by simonmar] Check for
 litlits and dll things when making top-level constrs.

---
 ghc/compiler/profiling/SCCfinal.lhs |    4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/ghc/compiler/profiling/SCCfinal.lhs b/ghc/compiler/profiling/SCCfinal.lhs
index 5af0543..5fc41a1 100644
--- a/ghc/compiler/profiling/SCCfinal.lhs
+++ b/ghc/compiler/profiling/SCCfinal.lhs
@@ -108,9 +108,11 @@ stgMassageForProfiling mod_name us stg_binds
     do_top_rhs :: Id -> StgRhs -> MassageM StgRhs
 
     do_top_rhs binder (StgRhsClosure _ bi srt fv u [] (StgSCC cc (StgConApp con args)))
-      | not (isSccCountCostCentre cc)
+      | not (isSccCountCostCentre cc) && not (isDllConApp con args)
 	-- Trivial _scc_ around nothing but static data
 	-- Eliminate _scc_ ... and turn into StgRhsCon
+
+	-- isDllConApp checks for LitLit args too
       = returnMM (StgRhsCon dontCareCCS con args)
 
 {- Can't do this one with cost-centre stacks:  --SDM
-- 
1.7.10.4