[commit: ghc] master: Record PAP allocation to CCCS. (2757258)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/275725892cc14fea32091b80d17b14c8cbf50e84/ghc

>---------------------------------------------------------------

commit 275725892cc14fea32091b80d17b14c8cbf50e84
Author: Edward Z. Yang <ezyang at mit.edu>
Date:   Sat Sep 7 14:16:37 2013 -0700

    Record PAP allocation to CCCS.
    
    Signed-off-by: Edward Z. Yang <ezyang at mit.edu>


>---------------------------------------------------------------

275725892cc14fea32091b80d17b14c8cbf50e84
 rts/AutoApply.h |    2 ++
 1 file changed, 2 insertions(+)

diff --git a/rts/AutoApply.h b/rts/AutoApply.h
index c48bdf4..f64bc6d 100644
--- a/rts/AutoApply.h
+++ b/rts/AutoApply.h
@@ -20,6 +20,7 @@
     size = SIZEOF_StgPAP + WDS(n);			\
     HP_CHK_NP_ASSIGN_SP0(size,f);			\
     TICK_ALLOC_PAP(size, 0);				\
+    CCCS_ALLOC(size);					\
     pap = Hp + WDS(1) - size;				\
     SET_HDR(pap, stg_PAP_info, CCCS);                   \
     StgPAP_arity(pap) = HALF_W_(arity - m);		\
@@ -49,6 +50,7 @@
      size = SIZEOF_StgPAP + WDS(TO_W_(StgPAP_n_args(pap))) + WDS(n);	\
      HP_CHK_NP_ASSIGN_SP0(size,f);				\
      TICK_ALLOC_PAP(size, 0);					\
+     CCCS_ALLOC(size);						\
      new_pap = Hp + WDS(1) - size;				\
      SET_HDR(new_pap, stg_PAP_info, CCCS);                      \
      StgPAP_arity(new_pap) = HALF_W_(arity - m);		\