re-instate counting of sparks converted

[ghc-hetmet.git] / rts / PrimOps.cmm

diff --git a/rts/PrimOps.cmm b/rts/PrimOps.cmm
index 55ada8c..f63f20a 100644 (file)
--- a/rts/PrimOps.cmm
+++ b/rts/PrimOps.cmm
@@ -2295,17 +2295,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
 }