diff options
author | Ben Gamari <ben@smart-cactus.org> | 2018-01-18 00:50:31 -0500 |
---|---|---|
committer | Ben Gamari <ben@smart-cactus.org> | 2018-01-18 00:50:31 -0500 |
commit | e1d4140be4d2a1508015093b69e1ef53516e1eb6 (patch) | |
tree | 93b5ffd337e78ca6d54073b9935bd9ac459199a9 /rts/PrimOps.cmm | |
parent | 8bb150df9e5e711d67f9800c0d694ecf457cd8f5 (diff) | |
download | haskell-e1d4140be4d2a1508015093b69e1ef53516e1eb6.tar.gz |
Revert "Improve accuracy of get/setAllocationCounter"
This reverts commit a1a689dda48113f3735834350fb562bb1927a633.
Diffstat (limited to 'rts/PrimOps.cmm')
-rw-r--r-- | rts/PrimOps.cmm | 20 |
1 files changed, 0 insertions, 20 deletions
diff --git a/rts/PrimOps.cmm b/rts/PrimOps.cmm index 1caa0c3343..2b3a304d06 100644 --- a/rts/PrimOps.cmm +++ b/rts/PrimOps.cmm @@ -2495,23 +2495,3 @@ stg_traceMarkerzh ( W_ msg ) return (); } - -stg_getThreadAllocationCounterzh () -{ - // Account for the allocation in the current block - W_ offset; - offset = Hp - bdescr_start(CurrentNursery); - return (StgTSO_alloc_limit(CurrentTSO) - offset); -} - -stg_setThreadAllocationCounterzh ( I64 counter ) -{ - // Allocation in the current block will be subtracted by - // getThreadAllocationCounter#, so we have to offset any existing - // allocation here. See also openNursery/closeNursery in - // compiler/codeGen/StgCmmForeign.hs. - W_ offset; - offset = Hp - bdescr_start(CurrentNursery); - StgTSO_alloc_limit(CurrentTSO) = counter + offset; - return (); -} |