Fix regression on i386 due to get/setAllocationCounter change
authorBen Gamari <bgamari.foss@gmail.com>
Mon, 15 Jan 2018 18:01:59 +0000 (13:01 -0500)
committerBen Gamari <ben@smart-cactus.org>
Mon, 15 Jan 2018 18:53:45 +0000 (13:53 -0500)
Reviewers: simonmar, erikd

Subscribers: rwbarton, thomie, carter

Differential Revision: https://phabricator.haskell.org/D4312

rts/PrimOps.cmm

index 1caa0c3..42001d1 100644 (file)
@@ -2499,7 +2499,7 @@ stg_traceMarkerzh ( W_ msg )
 stg_getThreadAllocationCounterzh ()
 {
     // Account for the allocation in the current block
-    W_ offset;
+    I64 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.
-    W_ offset;
+    I64 offset;
     offset = Hp - bdescr_start(CurrentNursery);
     StgTSO_alloc_limit(CurrentTSO) = counter + offset;
     return ();