summaryrefslogtreecommitdiff
path: root/rts/PrimOps.cmm
diff options
context:
space:
mode:
authorBen Gamari <ben@smart-cactus.org>2018-01-18 00:50:31 -0500
committerBen Gamari <ben@smart-cactus.org>2018-01-18 00:50:31 -0500
commite1d4140be4d2a1508015093b69e1ef53516e1eb6 (patch)
tree93b5ffd337e78ca6d54073b9935bd9ac459199a9 /rts/PrimOps.cmm
parent8bb150df9e5e711d67f9800c0d694ecf457cd8f5 (diff)
downloadhaskell-e1d4140be4d2a1508015093b69e1ef53516e1eb6.tar.gz
Revert "Improve accuracy of get/setAllocationCounter"
This reverts commit a1a689dda48113f3735834350fb562bb1927a633.
Diffstat (limited to 'rts/PrimOps.cmm')
-rw-r--r--rts/PrimOps.cmm20
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 ();
-}