diff options
| author | Ben Gamari <bgamari.foss@gmail.com> | 2015-09-08 11:30:43 -0500 |
|---|---|---|
| committer | Austin Seipp <austin@well-typed.com> | 2015-09-08 11:30:46 -0500 |
| commit | dbb4e415126aceb603da0fbf657372389a47e466 (patch) | |
| tree | 4638c64f41d0f054fd7abf2d56ffabeecd9cfea0 /rts/HeapStackCheck.cmm | |
| parent | 1b8eca18fc2bb9ccb4fd3246ac48318975574722 (diff) | |
| download | haskell-dbb4e415126aceb603da0fbf657372389a47e466.tar.gz | |
HeapStackCheck: Small refactoring
Use modern Cmm argument syntax in stg_block_blackhole definition.
Reviewed By: simonmar, austin
Differential Revision: https://phabricator.haskell.org/D1210
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 9430a09e36..825eaef27f 100644 --- a/rts/HeapStackCheck.cmm +++ b/rts/HeapStackCheck.cmm @@ -610,10 +610,10 @@ stg_block_putmvar (P_ mvar, P_ val) } } -stg_block_blackhole +stg_block_blackhole (P_ node) { Sp_adj(-2); - Sp(1) = R1; + Sp(1) = node; Sp(0) = stg_enter_info; BLOCK_GENERIC; } |