Commit 50cdefb4 authored by sof's avatar sof
Browse files

[project @ 1997-07-25 23:02:02 by sof]

always pin on module name on auto-scc labels;make CC_ decls global(temp)
parent 6982eb1e
......@@ -36,6 +36,7 @@ import Name ( OccName, getOccString, moduleString, nameString )
import Outputable ( PprStyle(..), codeStyle, ifaceStyle )
import Pretty
import Util ( panic, panic#, assertPanic, cmpPString, thenCmp, Ord3(..) )
import CmdLineOpts ( all_toplev_ids_visible )
pprIdInUnfolding = panic "Whoops"
\end{code}
......@@ -399,13 +400,10 @@ uppCostCentre sty print_as_string cc
('/' : _UNPK_ grp_str) ++
('/' : basic_kind))
in
case sty of
PprForC -> do_caf is_caf basic_kind
_ ->
if friendly_sty then
do_dupd is_dupd full_kind
else
module_kind
if friendly_sty then
do_dupd is_dupd full_kind
else
module_kind
where
do_caf IsCafCC ls = "CAF:" ++ ls
do_caf _ ls = ls
......@@ -491,7 +489,7 @@ uppCostCentreDecl sty is_local cc
pp_str mod_name, comma,
pp_str grp_name, comma,
text is_subsumed, comma,
if externally_visible then empty else ptext SLIT("static"),
if externally_visible || all_toplev_ids_visible then empty else ptext SLIT("static"),
text ");"]
else
hcat [ ptext SLIT("CC_EXTERN"),char '(', upp_ident, text ");" ]
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment