diff options
| author | Simon Marlow <simonmarhaskell@gmail.com> | 2008-04-16 23:41:35 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmarhaskell@gmail.com> | 2008-04-16 23:41:35 +0000 |
| commit | 777bb600402d333b53e5bf8c94fc8ea7dbacf999 (patch) | |
| tree | 90221dd67d468d86c1de7c41cd8bfb3482c33f1e /rts | |
| parent | 122ff64971cbef8260221840caefc1a3411f41b5 (diff) | |
| download | haskell-777bb600402d333b53e5bf8c94fc8ea7dbacf999.tar.gz | |
remove GRAN/PAR code
Diffstat (limited to 'rts')
| -rw-r--r-- | rts/PrimOps.cmm | 24 |
1 files changed, 0 insertions, 24 deletions
diff --git a/rts/PrimOps.cmm b/rts/PrimOps.cmm index 9216969bb6..c2b53f9c5a 100644 --- a/rts/PrimOps.cmm +++ b/rts/PrimOps.cmm @@ -1590,15 +1590,9 @@ takeMVarzh_fast foreign "C" dirty_TSO(MyCapability(), tso); } -#if defined(GRAN) || defined(PAR) - /* ToDo: check 2nd arg (mvar) is right */ - ("ptr" tso) = foreign "C" unblockOne(StgMVar_head(mvar),mvar) []; - StgMVar_head(mvar) = tso; -#else ("ptr" tso) = foreign "C" unblockOne_(MyCapability() "ptr", StgMVar_head(mvar) "ptr", 1) []; StgMVar_head(mvar) = tso; -#endif if (StgMVar_head(mvar) == stg_END_TSO_QUEUE_closure) { StgMVar_tail(mvar) = stg_END_TSO_QUEUE_closure; @@ -1672,15 +1666,9 @@ tryTakeMVarzh_fast foreign "C" dirty_TSO(MyCapability(), tso); } -#if defined(GRAN) || defined(PAR) - /* ToDo: check 2nd arg (mvar) is right */ - ("ptr" tso) = foreign "C" unblockOne(StgMVar_head(mvar) "ptr", mvar "ptr") []; - StgMVar_head(mvar) = tso; -#else ("ptr" tso) = foreign "C" unblockOne_(MyCapability() "ptr", StgMVar_head(mvar) "ptr", 1) []; StgMVar_head(mvar) = tso; -#endif if (StgMVar_head(mvar) == stg_END_TSO_QUEUE_closure) { StgMVar_tail(mvar) = stg_END_TSO_QUEUE_closure; @@ -1751,15 +1739,9 @@ putMVarzh_fast foreign "C" dirty_TSO(MyCapability(), tso); } -#if defined(GRAN) || defined(PAR) - /* ToDo: check 2nd arg (mvar) is right */ - ("ptr" tso) = foreign "C" unblockOne(MyCapability() "ptr", StgMVar_head(mvar) "ptr",mvar "ptr") []; - StgMVar_head(mvar) = tso; -#else ("ptr" tso) = foreign "C" unblockOne_(MyCapability() "ptr", StgMVar_head(mvar) "ptr", 1) []; StgMVar_head(mvar) = tso; -#endif if (StgMVar_head(mvar) == stg_END_TSO_QUEUE_closure) { StgMVar_tail(mvar) = stg_END_TSO_QUEUE_closure; @@ -1826,15 +1808,9 @@ tryPutMVarzh_fast foreign "C" dirty_TSO(MyCapability(), tso); } -#if defined(GRAN) || defined(PAR) - /* ToDo: check 2nd arg (mvar) is right */ - ("ptr" tso) = foreign "C" unblockOne(MyCapability() "ptr", StgMVar_head(mvar) "ptr",mvar "ptr") []; - StgMVar_head(mvar) = tso; -#else ("ptr" tso) = foreign "C" unblockOne_(MyCapability() "ptr", StgMVar_head(mvar) "ptr", 1) []; StgMVar_head(mvar) = tso; -#endif if (StgMVar_head(mvar) == stg_END_TSO_QUEUE_closure) { StgMVar_tail(mvar) = stg_END_TSO_QUEUE_closure; |