Commit aede9f09 authored by Austin Seipp's avatar Austin Seipp
Browse files

compiler: unlit profiling/ modules

Summary: Signed-off-by: Austin Seipp <>

Test Plan: `./validate`

Reviewers: hvr

Subscribers: thomie, carter

Differential Revision:
parent 383733b9
{-# LANGUAGE BangPatterns, DeriveDataTypeable #-}
module CostCentre (
CostCentre(..), CcName, IsCafCC(..),
......@@ -325,4 +324,3 @@ instance Binary CostCentre where
-- ok, because we only need the SrcSpan when declaring the
-- CostCentre in the original module, it is not used by importing
-- modules.
% (c) The GRASP/AQUA Project, Glasgow University, 1992-1998
-- (c) The GRASP/AQUA Project, Glasgow University, 1992-1998
......@@ -9,13 +6,13 @@
This is now a sort-of-normal STG-to-STG pass (WDP 94/06), run by stg2stg.
- Traverses the STG program collecting the cost centres. These are required
to declare the cost centres at the start of code generation.
Note: because of cross-module unfolding, some of these cost centres may be
from other modules.
- Puts on CAF cost-centres if the user has asked for individual CAF
......@@ -281,4 +278,3 @@ collectCCS ccs
= MassageM $ \_mod_name (local_ccs, extern_ccs, ccss)
-> ASSERT(not (noCCSAttached ccs))
((local_ccs, extern_ccs, ccs : ccss), ())
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