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

compiler: unlit profiling/ modules

Summary: Signed-off-by: Austin Seipp <austin@well-typed.com>

Test Plan: `./validate`

Reviewers: hvr

Subscribers: thomie, carter

Differential Revision: https://phabricator.haskell.org/D537
parent 383733b9
\begin{code}
{-# 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.
\end{code}
%
% (c) The GRASP/AQUA Project, Glasgow University, 1992-1998
%
\begin{code}
-- (c) The GRASP/AQUA Project, Glasgow University, 1992-1998
{-# LANGUAGE CPP #-}
-----------------------------------------------------------------------------
......@@ -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
cost-centres.
-}
......@@ -281,4 +278,3 @@ collectCCS ccs
= MassageM $ \_mod_name (local_ccs, extern_ccs, ccss)
-> ASSERT(not (noCCSAttached ccs))
((local_ccs, extern_ccs, ccs : ccss), ())
\end{code}
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