projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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 base_ControlziExceptionziBase_nestedAtomically_closure;
import EnterCriticalSection;
import LeaveCriticalSection;
+import ghczmprim_GHCziBool_False_closure;
/*-----------------------------------------------------------------------------
Array Primitives
/*-----------------------------------------------------------------------------
Array Primitives
@@
-2295,17
+2296,11
@@
getSparkzh_fast
#ifndef THREADED_RTS
RET_NP(0,ghczmprim_GHCziBool_False_closure);
#else
#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 {
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
}
}
#endif
}