HeapStackCheck: Small refactoring
authorBen Gamari <bgamari.foss@gmail.com>
Tue, 8 Sep 2015 16:30:43 +0000 (11:30 -0500)
committerAustin Seipp <austin@well-typed.com>
Tue, 8 Sep 2015 16:30:46 +0000 (11:30 -0500)
Use modern Cmm argument syntax in stg_block_blackhole definition.

Reviewed By: simonmar, austin

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

rts/HeapStackCheck.cmm

index 9430a09..825eaef 100644 (file)
@@ -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;
 }