diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2011-11-28 16:27:26 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2011-11-29 09:12:54 +0000 |
| commit | 1c2b838131134d44004dfdff18c302131478390d (patch) | |
| tree | 9e6fd8887595863c3881c250365f8ba2de56f9cc /rts/HeapStackCheck.cmm | |
| parent | cbe2416808d2592429830b5d0c202cdee80c36d3 (diff) | |
| download | haskell-1c2b838131134d44004dfdff18c302131478390d.tar.gz | |
stg_enter_checkbh: fix offsets for profiling
Diffstat (limited to 'rts/HeapStackCheck.cmm')
| -rw-r--r-- | rts/HeapStackCheck.cmm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/rts/HeapStackCheck.cmm b/rts/HeapStackCheck.cmm index d17961145a..7b08f781c8 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(); |