diff options
Diffstat (limited to 'rts')
| -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; } |