Commit 27572589 authored by Edward Z. Yang's avatar Edward Z. Yang

Record PAP allocation to CCCS.

Signed-off-by: Edward Z. Yang's avatarEdward Z. Yang <ezyang@mit.edu>
parent 021b1f89
...@@ -20,6 +20,7 @@ ...@@ -20,6 +20,7 @@
size = SIZEOF_StgPAP + WDS(n); \ size = SIZEOF_StgPAP + WDS(n); \
HP_CHK_NP_ASSIGN_SP0(size,f); \ HP_CHK_NP_ASSIGN_SP0(size,f); \
TICK_ALLOC_PAP(size, 0); \ TICK_ALLOC_PAP(size, 0); \
CCCS_ALLOC(size); \
pap = Hp + WDS(1) - size; \ pap = Hp + WDS(1) - size; \
SET_HDR(pap, stg_PAP_info, CCCS); \ SET_HDR(pap, stg_PAP_info, CCCS); \
StgPAP_arity(pap) = HALF_W_(arity - m); \ StgPAP_arity(pap) = HALF_W_(arity - m); \
...@@ -49,6 +50,7 @@ ...@@ -49,6 +50,7 @@
size = SIZEOF_StgPAP + WDS(TO_W_(StgPAP_n_args(pap))) + WDS(n); \ size = SIZEOF_StgPAP + WDS(TO_W_(StgPAP_n_args(pap))) + WDS(n); \
HP_CHK_NP_ASSIGN_SP0(size,f); \ HP_CHK_NP_ASSIGN_SP0(size,f); \
TICK_ALLOC_PAP(size, 0); \ TICK_ALLOC_PAP(size, 0); \
CCCS_ALLOC(size); \
new_pap = Hp + WDS(1) - size; \ new_pap = Hp + WDS(1) - size; \
SET_HDR(new_pap, stg_PAP_info, CCCS); \ SET_HDR(new_pap, stg_PAP_info, CCCS); \
StgPAP_arity(new_pap) = HALF_W_(arity - m); \ StgPAP_arity(new_pap) = HALF_W_(arity - m); \
......
Markdown is supported
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