Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/1c2b838131134d44004dfdff18c302131478390d >--------------------------------------------------------------- commit 1c2b838131134d44004dfdff18c302131478390d Author: Simon Marlow <[email protected]> Date: Mon Nov 28 16:27:26 2011 +0000 stg_enter_checkbh: fix offsets for profiling >--------------------------------------------------------------- rts/HeapStackCheck.cmm | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) diff --git a/rts/HeapStackCheck.cmm b/rts/HeapStackCheck.cmm index d179611..7b08f78 100644 --- a/rts/HeapStackCheck.cmm +++ b/rts/HeapStackCheck.cmm @@ -169,8 +169,8 @@ __stg_gc_enter_1 INFO_TABLE_RET( stg_enter_checkbh, RET_SMALL, P_ unused) { - R1 = Sp(1); - Sp_adj(2); + R1 = StgUpdateFrame_updatee(Sp); + Sp = Sp + SIZEOF_StgUpdateFrame; foreign "C" checkBlockingQueues(MyCapability() "ptr", CurrentTSO) [R1]; ENTER(); _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
