diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2008-11-06 16:08:10 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2008-11-06 16:08:10 +0000 |
| commit | d15cb49d6fe600090fac7c56805ee4b13f4aaa47 (patch) | |
| tree | 9e6d2f01615d483788a8fd562716e7995daf9099 /rts/PrimOps.cmm | |
| parent | a650cec6aebe5be3706f6aef603bd27a5c0ec1f0 (diff) | |
| download | haskell-d15cb49d6fe600090fac7c56805ee4b13f4aaa47.tar.gz | |
re-instate counting of sparks converted
lost in patch "Run sparks in batches"
Diffstat (limited to 'rts/PrimOps.cmm')
| -rw-r--r-- | rts/PrimOps.cmm | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/rts/PrimOps.cmm b/rts/PrimOps.cmm index 55ada8c45c..f63f20adb8 100644 --- 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 } |