From: sof <unknown>
Date: Thu, 12 Mar 1998 20:04:47 +0000 (+0000)
Subject: [project @ 1998-03-12 20:04:47 by sof]
X-Git-Tag: Approx_2487_patches~864
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=1a088058dd02d154373ce751f5a0748b409c3788;p=ghc-hetmet.git

[project @ 1998-03-12 20:04:47 by sof]
scc printing: Only output duplicated flag in scc label when debugging
---

diff --git a/ghc/compiler/profiling/CostCentre.lhs b/ghc/compiler/profiling/CostCentre.lhs
index 6992df7..d04e255 100644
--- a/ghc/compiler/profiling/CostCentre.lhs
+++ b/ghc/compiler/profiling/CostCentre.lhs
@@ -424,7 +424,7 @@ uppCostCentre print_as_string cc
 	do_id id = getOccString id
 
     ---------------
-    do_dupd sty ADupdCC str = if (friendly_sty sty) then str ++ "/DUPD" else str
+    do_dupd sty ADupdCC str = if (debugStyle sty) then str ++ "/DUPD" else str
     do_dupd _   _       str = str
 \end{code}