Commit f4722a9a authored by simonmar's avatar simonmar
Browse files

[project @ 2000-04-17 15:49:19 by simonmar]

Check for litlits and dll things when making top-level constrs.
parent e1deb6b0
......@@ -108,9 +108,11 @@ stgMassageForProfiling mod_name us stg_binds
do_top_rhs :: Id -> StgRhs -> MassageM StgRhs
do_top_rhs binder (StgRhsClosure _ bi srt fv u [] (StgSCC cc (StgConApp con args)))
| not (isSccCountCostCentre cc)
| not (isSccCountCostCentre cc) && not (isDllConApp con args)
-- Trivial _scc_ around nothing but static data
-- Eliminate _scc_ ... and turn into StgRhsCon
-- isDllConApp checks for LitLit args too
= returnMM (StgRhsCon dontCareCCS con args)
{- Can't do this one with cost-centre stacks: --SDM
Supports Markdown
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