- = case is_caf of { CafCC -> "CAF:"; _ -> "" } ++ decode (unpackFS name)
-\end{code}
-
-Cost Centre Declarations
-
-\begin{code}
-#ifdef DEBUG
-pprCostCentreDecl is_local (NoCostCentre)
- = panic "pprCostCentreDecl: no cost centre!"
-#endif
-pprCostCentreDecl is_local cc
- = if is_local then
- hcat [
- ptext SLIT("CC_DECLARE"),char '(',
- cc_ident, comma,
- pprStringInCStyle (costCentreUserName cc), comma,
- pprStringInCStyle (moduleNameUserString mod_name), comma,
- is_subsumed, comma,
- empty, -- Now always externally visible
- text ");"]
- else
- hcat [ ptext SLIT("CC_EXTERN"),char '(', cc_ident, text ");" ]
- where
- cc_ident = ppCostCentreLbl cc
- mod_name = cc_mod cc
- is_subsumed = ccSubsumed cc
-
-ccSubsumed :: CostCentre -> SDoc -- subsumed value
-ccSubsumed cc | isCafCC cc = ptext SLIT("CC_IS_CAF")
- | otherwise = ptext SLIT("CC_IS_BORING")