[commit: ghc] master: Revert "Fix regression on i386 due to get/setAllocationCounter change" (8bb150d)

git at git.haskell.org git at git.haskell.org
Thu Jan 18 15:31:39 UTC 2018


Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/8bb150df9e5e711d67f9800c0d694ecf457cd8f5/ghc

>---------------------------------------------------------------

commit 8bb150df9e5e711d67f9800c0d694ecf457cd8f5
Author: Ben Gamari <ben at smart-cactus.org>
Date:   Thu Jan 18 00:50:05 2018 -0500

    Revert "Fix regression on i386 due to get/setAllocationCounter change"
    
    This reverts commit a770226e03f09b767fdb4ce826162a5c0f29ec29.


>---------------------------------------------------------------

8bb150df9e5e711d67f9800c0d694ecf457cd8f5
 rts/PrimOps.cmm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/rts/PrimOps.cmm b/rts/PrimOps.cmm
index 42001d1..1caa0c3 100644
--- a/rts/PrimOps.cmm
+++ b/rts/PrimOps.cmm
@@ -2499,7 +2499,7 @@ stg_traceMarkerzh ( W_ msg )
 stg_getThreadAllocationCounterzh ()
 {
     // Account for the allocation in the current block
-    I64 offset;
+    W_ offset;
     offset = Hp - bdescr_start(CurrentNursery);
     return (StgTSO_alloc_limit(CurrentTSO) - offset);
 }
@@ -2510,7 +2510,7 @@ stg_setThreadAllocationCounterzh ( I64 counter )
     // getThreadAllocationCounter#, so we have to offset any existing
     // allocation here.  See also openNursery/closeNursery in
     // compiler/codeGen/StgCmmForeign.hs.
-    I64 offset;
+    W_ offset;
     offset = Hp - bdescr_start(CurrentNursery);
     StgTSO_alloc_limit(CurrentTSO) = counter + offset;
     return ();



More information about the ghc-commits mailing list