Add 'packageDbModules' function to GHC API.

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

diff --git a/rts/PrimOps.cmm b/rts/PrimOps.cmm
index 55ada8c..72090c8 100644 (file)
--- 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
 }