From 90867aabb02d5e48d620b94c064597229e777ec5 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Thu, 26 Feb 1998 13:47:07 +0000
Subject: [PATCH] [project @ 1998-02-26 13:47:07 by sof] Dont use group part of
a user/auto scc
---
ghc/compiler/profiling/CostCentre.lhs | 21 ++++++++++++++-------
1 file changed, 14 insertions(+), 7 deletions(-)
diff --git a/ghc/compiler/profiling/CostCentre.lhs b/ghc/compiler/profiling/CostCentre.lhs
index b814f89f1d00..6992df7cf435 100644
--- a/ghc/compiler/profiling/CostCentre.lhs
+++ b/ghc/compiler/profiling/CostCentre.lhs
@@ -385,11 +385,18 @@ uppCostCentre print_as_string cc
basic_kind = do_kind kind
module_kind = do_caf is_caf (moduleString mod_name ++ '/':
basic_kind)
- grp_str = if (_NULL_ grp_name) then mod_name else grp_name
- full_kind = do_caf is_caf
- (moduleString mod_name ++
- ('/' : _UNPK_ grp_str) ++
- ('/' : basic_kind))
+ grp_str = []
+ {- TODO: re-instate this once interface file lexer
+ handles groups.
+ grp_str =
+ if (_NULL_ grp_name) then
+ []
+ else
+ '/' : (_UNPK_ grp_name)
+ -}
+ full_kind = do_caf is_caf
+ (moduleString mod_name ++
+ grp_str ++ ('/' : basic_kind))
in
if (friendly_sty sty) then
do_dupd sty is_dupd full_kind
@@ -406,8 +413,8 @@ uppCostCentre print_as_string cc
do_caf _ ls = ls
do_kind (UserCC name) = _UNPK_ name
- do_kind (AutoCC id) = do_id id ++ (if (friendly_sty sty) then "/AUTO" else "")
- do_kind (DictCC id) = do_id id ++ (if (friendly_sty sty) then "/DICT" else "")
+ do_kind (AutoCC id) = do_id id ++ (if (debugStyle sty) then "/AUTO" else "")
+ do_kind (DictCC id) = do_id id ++ (if (debugStyle sty) then "/DICT" else "")
{-
do_id is only applied in a (not print_as_string) context for local ids,
--
GitLab