X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FPrimOps.cmm;fp=ghc%2Frts%2FPrimOps.cmm;h=b4e95f396bfedeb2e5ad69c1caf4e0671f4f0fb0;hb=84b434c5c07ce864353cdf9780873555daad3b47;hp=630319fef2bf4c35891dc03ce6ac792848571659;hpb=51ab82d2c77dbb12fb6d92cfcf6ee30c5a543997;p=ghc-hetmet.git

diff --git a/ghc/rts/PrimOps.cmm b/ghc/rts/PrimOps.cmm
index 630319f..b4e95f3 100644
--- a/ghc/rts/PrimOps.cmm
+++ b/ghc/rts/PrimOps.cmm
@@ -1300,7 +1300,8 @@ retry_pop_stack:
     IF_NOT_REG_R1(Sp_adj(-2); 
 		  Sp(1) = stg_NO_FINALIZER_closure;
 		  Sp(0) = stg_ut_1_0_unreg_info;)
-    jump stg_block_noregs;
+    R3 = trec; // passing to stmWaitUnblock()
+    jump stg_block_stmwait;
   } else {
     // Transaction was not valid: retry immediately
     "ptr" trec = foreign "C" stmStartTransaction(MyCapability() "ptr", outer "ptr");