Skip to content
Snippets Groups Projects
Commit 27572589 authored by Edward Z. Yang's avatar Edward Z. Yang
Browse files

Record PAP allocation to CCCS. 


Signed-off-by: default avatarEdward Z. Yang <ezyang@mit.edu>
parent 021b1f89
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 2 additions and 0 deletions
rts/AutoApply.h
+ 2
− 0
View file @ 27572589
...@@ -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); \
......
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