diff options
| author | Ian Lynagh <igloo@earth.li> | 2011-10-15 00:50:25 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2011-10-15 00:50:25 +0100 |
| commit | 7b44e519e7bd746ccab648c75c89a0f42f6c5871 (patch) | |
| tree | 48836ff4cabee78b188baae1b0b3a29da9a030ad /compiler/profiling | |
| parent | e94e97a134612e53ff8f5ce71914f8e7361a654a (diff) | |
| download | haskell-7b44e519e7bd746ccab648c75c89a0f42f6c5871.tar.gz | |
Remove a little more CPP
Diffstat (limited to 'compiler/profiling')
| -rw-r--r-- | compiler/profiling/SCCfinal.lhs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/compiler/profiling/SCCfinal.lhs b/compiler/profiling/SCCfinal.lhs index 8c3b62574d..f09b291db7 100644 --- a/compiler/profiling/SCCfinal.lhs +++ b/compiler/profiling/SCCfinal.lhs @@ -45,13 +45,12 @@ import DynFlags \begin{code} stgMassageForProfiling :: DynFlags - -> PackageId -> Module -- module name -> UniqSupply -- unique supply -> [StgBinding] -- input -> (CollectedCCs, [StgBinding]) -stgMassageForProfiling dflags this_pkg mod_name us stg_binds +stgMassageForProfiling dflags mod_name us stg_binds = let ((local_ccs, extern_ccs, cc_stacks), stg_binds2) @@ -100,7 +99,7 @@ stgMassageForProfiling dflags this_pkg mod_name us stg_binds do_top_rhs :: Id -> StgRhs -> MassageM StgRhs do_top_rhs _ (StgRhsClosure _ _ _ _ _ [] (StgSCC cc (StgConApp con args))) - | not (isSccCountCostCentre cc) && not (isDllConApp this_pkg con args) + | not (isSccCountCostCentre cc) && not (isDllConApp dflags con args) -- Trivial _scc_ around nothing but static data -- Eliminate _scc_ ... and turn into StgRhsCon |