X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FPrimOps.cmm;h=72090c8fb0f4cd0930d972cb417e04c61ed635a6;hb=63179a7b10069d8f69f5bceef27008c9c7fb0aa8;hp=55ada8c45c860b53bba31dc987c17b57d3e26348;hpb=2b16fa4791b08b02df8461f3b79d0e44d72d0960;p=ghc-hetmet.git

diff --git a/rts/PrimOps.cmm b/rts/PrimOps.cmm
index 55ada8c..72090c8 100644
--- a/rts/PrimOps.cmm
+++ b/rts/PrimOps.cmm
@@ -52,6 +52,7 @@ import pthread_mutex_unlock;
 import base_ControlziExceptionziBase_nestedAtomically_closure;
 import EnterCriticalSection;
 import LeaveCriticalSection;
+import ghczmprim_GHCziBool_False_closure;
 
 /*-----------------------------------------------------------------------------
   Array Primitives
@@ -2295,17 +2296,11 @@ getSparkzh_fast
 #ifndef THREADED_RTS
    RET_NP(0,ghczmprim_GHCziBool_False_closure);
 #else
-   (spark) = foreign "C" tryStealSpark(MyCapability());
+   (spark) = foreign "C" findSpark(MyCapability());
    if (spark != 0) {
       RET_NP(1,spark);
    } else {
-      (spark) = foreign "C" stealWork (MyCapability());
-      if (spark != 0) {
-         RET_NP(1,spark);
-      } else {
-         RET_NP(0,ghczmprim_GHCziBool_False_closure);
-
-      }
+      RET_NP(0,ghczmprim_GHCziBool_False_closure);
    }
 #endif
 }