[project @ 2001-03-23 10:46:27 by simonpj]
authorsimonpj <unknown>
Fri, 23 Mar 2001 10:46:27 +0000 (10:46 +0000)
committersimonpj <unknown>
Fri, 23 Mar 2001 10:46:27 +0000 (10:46 +0000)
commit644c1be9b359ac664fb54a6f0aef6e740729d07e
treebf74b99b3dedf2ae5218d6249e5e09792b87399c
parent86d20be7a4d19c1808b34528840d12325739fd5e
[project @ 2001-03-23 10:46:27 by simonpj]
-----------------------------------
Correct size calculations for INLINE notes
-----------------------------------

Amazingly, CoreUnfold.size_up wasn't treating an InlineMe note
as small.  (InlineMe was only dealt with at top level.)  As
the comment now says:

  -- This can be important.  If you have an instance decl like this:
  --  instance Foo a => Foo [a] where
  --    {-# INLINE op1, op2 #-}
  --    op1 = ...
  --    op2 = ...
  -- then we'll get a dfun which is a pair of two INLINE lambdas

This fixes a problem Manuel encountered.
ghc/compiler/coreSyn/CoreUnfold.lhs