[project @ 1999-04-08 15:43:44 by simonm]
authorsimonm <unknown>
Thu, 8 Apr 1999 15:43:46 +0000 (15:43 +0000)
committersimonm <unknown>
Thu, 8 Apr 1999 15:43:46 +0000 (15:43 +0000)
commit6a19a2b9a6a66f65f2f3f6b283d20523947f2a5f
tree88c38c355737bab2b7d5d0012af424161cfce3b4
parent9d1775e3993cbca161c54116332ed56ce927fd51
[project @ 1999-04-08 15:43:44 by simonm]
Don't set the cost centre when entering a PAP.  Either:

-  it's fully applied, in which case we're about to
   set the CCS in the function anyway, or

-  we're about to build another PAP in which case the
   costs get attributed to the current CCS.

This avoids appending CCSs twice in some cases.
ghc/includes/StgProf.h
ghc/rts/Profiling.c
ghc/rts/Updates.hc