diff options
| author | Nicolas Frisby <nicolas.frisby@gmail.com> | 2013-03-06 21:46:14 +0000 |
|---|---|---|
| committer | Nicolas Frisby <nicolas.frisby@gmail.com> | 2013-03-29 15:20:50 +0000 |
| commit | 460abd75c4f99d813ed226d2ff6aa592d62fafd4 (patch) | |
| tree | 9e602d6733d90c1b26fccb2509497454bf619766 /rts/AutoApply.h | |
| parent | c7d80c6524390551b64e9c1d651e1a03ed3c7617 (diff) | |
| download | haskell-460abd75c4f99d813ed226d2ff6aa592d62fafd4.tar.gz | |
ticky enhancements
* the new StgCmmArgRep module breaks a dependency cycle; I also
untabified it, but made no real changes
* updated the documentation in the wiki and change the user guide to
point there
* moved the allocation enters for ticky and CCS to after the heap check
* I left LDV where it was, which was before the heap check at least
once, since I have no idea what it is
* standardized all (active?) ticky alloc totals to bytes
* in order to avoid double counting StgCmmLayout.adjustHpBackwards
no longer bumps ALLOC_HEAP_ctr
* I resurrected the SLOW_CALL counters
* the new module StgCmmArgRep breaks cyclic dependency between
Layout and Ticky (which the SLOW_CALL counters cause)
* renamed them SLOW_CALL_fast_<pattern> and VERY_SLOW_CALL
* added ALLOC_RTS_ctr and _tot ticky counters
* eg allocation by Storage.c:allocate or a BUILD_PAP in stg_ap_*_info
* resurrected ticky counters for ALLOC_THK, ALLOC_PAP, and
ALLOC_PRIM
* added -ticky and -DTICKY_TICKY in ways.mk for debug ways
* added a ticky counter for total LNE entries
* new flags for ticky: -ticky-allocd -ticky-dyn-thunk -ticky-LNE
* all off by default
* -ticky-allocd: tracks allocation *of* closure in addition to
allocation *by* that closure
* -ticky-dyn-thunk tracks dynamic thunks as if they were functions
* -ticky-LNE tracks LNEs as if they were functions
* updated the ticky report format, including making the argument
categories (more?) accurate again
* the printed name for things in the report include the unique of
their ticky parent as well as if they are not top-level
Diffstat (limited to 'rts/AutoApply.h')
| -rw-r--r-- | rts/AutoApply.h | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/rts/AutoApply.h b/rts/AutoApply.h index c5dbbcd344..c48bdf4701 100644 --- a/rts/AutoApply.h +++ b/rts/AutoApply.h @@ -19,8 +19,7 @@ W_ i; \ size = SIZEOF_StgPAP + WDS(n); \ HP_CHK_NP_ASSIGN_SP0(size,f); \ - TICK_ALLOC_HEAP_NOCTR(BYTES_TO_WDS(size)); \ - TICK_ALLOC_PAP(n+1 /* +1 for the FUN */, 0); \ + TICK_ALLOC_PAP(size, 0); \ pap = Hp + WDS(1) - size; \ SET_HDR(pap, stg_PAP_info, CCCS); \ StgPAP_arity(pap) = HALF_W_(arity - m); \ @@ -49,8 +48,7 @@ pap = R1; \ size = SIZEOF_StgPAP + WDS(TO_W_(StgPAP_n_args(pap))) + WDS(n); \ HP_CHK_NP_ASSIGN_SP0(size,f); \ - TICK_ALLOC_HEAP_NOCTR(BYTES_TO_WDS(size)); \ - TICK_ALLOC_PAP(n+1 /* +1 for the FUN */, 0); \ + TICK_ALLOC_PAP(size, 0); \ new_pap = Hp + WDS(1) - size; \ SET_HDR(new_pap, stg_PAP_info, CCCS); \ StgPAP_arity(new_pap) = HALF_W_(arity - m); \ |