import base_ControlziExceptionziBase_nestedAtomically_closure;
import EnterCriticalSection;
import LeaveCriticalSection;
+import ghczmprim_GHCziBool_False_closure;
/*-----------------------------------------------------------------------------
Array Primitives
#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
}