[commit: ghc] master: HeapStackCheck: Small refactoring (dbb4e41)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/dbb4e415126aceb603da0fbf657372389a47e466/ghc

>---------------------------------------------------------------

commit dbb4e415126aceb603da0fbf657372389a47e466
Author: Ben Gamari <bgamari.foss at gmail.com>
Date:   Tue Sep 8 11:30:43 2015 -0500

    HeapStackCheck: Small refactoring
    
    Use modern Cmm argument syntax in stg_block_blackhole definition.
    
    Reviewed By: simonmar, austin
    
    Differential Revision: https://phabricator.haskell.org/D1210


>---------------------------------------------------------------

dbb4e415126aceb603da0fbf657372389a47e466
 rts/HeapStackCheck.cmm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/rts/HeapStackCheck.cmm b/rts/HeapStackCheck.cmm
index 9430a09..825eaef 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;
 }