diff options
| author | Simon Marlow <simonmarhaskell@gmail.com> | 2008-04-16 23:42:34 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmarhaskell@gmail.com> | 2008-04-16 23:42:34 +0000 |
| commit | bc111b7d3d03e49f999bd869cbac0ad5e2160b9b (patch) | |
| tree | b1e5f12c7ddaea739d951b29f50bfa07f77414fc /rts/PrimOps.cmm | |
| parent | 777bb600402d333b53e5bf8c94fc8ea7dbacf999 (diff) | |
| download | haskell-bc111b7d3d03e49f999bd869cbac0ad5e2160b9b.tar.gz | |
add [] to foreign calls
Diffstat (limited to 'rts/PrimOps.cmm')
| -rw-r--r-- | rts/PrimOps.cmm | 24 |
1 files changed, 13 insertions, 11 deletions
diff --git a/rts/PrimOps.cmm b/rts/PrimOps.cmm index c2b53f9c5a..4a7d398b6a 100644 --- a/rts/PrimOps.cmm +++ b/rts/PrimOps.cmm @@ -1551,7 +1551,7 @@ takeMVarzh_fast #endif if (info == stg_MVAR_CLEAN_info) { - foreign "C" dirty_MVAR(BaseReg "ptr", mvar "ptr"); + foreign "C" dirty_MVAR(BaseReg "ptr", mvar "ptr") []; } /* If the MVar is empty, put ourselves on its blocking queue, @@ -1561,8 +1561,9 @@ takeMVarzh_fast if (StgMVar_head(mvar) == stg_END_TSO_QUEUE_closure) { StgMVar_head(mvar) = CurrentTSO; } else { - foreign "C" setTSOLink(MyCapability() "ptr", StgMVar_tail(mvar), - CurrentTSO); + foreign "C" setTSOLink(MyCapability() "ptr", + StgMVar_tail(mvar) "ptr", + CurrentTSO) []; } StgTSO__link(CurrentTSO) = stg_END_TSO_QUEUE_closure; StgTSO_why_blocked(CurrentTSO) = BlockedOnMVar::I16; @@ -1587,7 +1588,7 @@ takeMVarzh_fast PerformPut(tso,StgMVar_value(mvar)); if (StgTSO_flags(tso) & TSO_DIRTY == 0) { - foreign "C" dirty_TSO(MyCapability(), tso); + foreign "C" dirty_TSO(MyCapability() "ptr", tso "ptr") []; } ("ptr" tso) = foreign "C" unblockOne_(MyCapability() "ptr", @@ -1663,7 +1664,7 @@ tryTakeMVarzh_fast tso = StgMVar_head(mvar); PerformPut(tso,StgMVar_value(mvar)); if (StgTSO_flags(tso) & TSO_DIRTY == 0) { - foreign "C" dirty_TSO(MyCapability(), tso); + foreign "C" dirty_TSO(MyCapability() "ptr", tso "ptr") []; } ("ptr" tso) = foreign "C" unblockOne_(MyCapability() "ptr", @@ -1715,8 +1716,9 @@ putMVarzh_fast if (StgMVar_head(mvar) == stg_END_TSO_QUEUE_closure) { StgMVar_head(mvar) = CurrentTSO; } else { - foreign "C" setTSOLink(MyCapability() "ptr", StgMVar_tail(mvar), - CurrentTSO); + foreign "C" setTSOLink(MyCapability() "ptr", + StgMVar_tail(mvar) "ptr", + CurrentTSO) []; } StgTSO__link(CurrentTSO) = stg_END_TSO_QUEUE_closure; StgTSO_why_blocked(CurrentTSO) = BlockedOnMVar::I16; @@ -1736,7 +1738,7 @@ putMVarzh_fast tso = StgMVar_head(mvar); PerformTake(tso, R2); if (StgTSO_flags(tso) & TSO_DIRTY == 0) { - foreign "C" dirty_TSO(MyCapability(), tso); + foreign "C" dirty_TSO(MyCapability() "ptr", tso "ptr") []; } ("ptr" tso) = foreign "C" unblockOne_(MyCapability() "ptr", @@ -1805,7 +1807,7 @@ tryPutMVarzh_fast tso = StgMVar_head(mvar); PerformTake(tso, R2); if (StgTSO_flags(tso) & TSO_DIRTY == 0) { - foreign "C" dirty_TSO(MyCapability(), tso); + foreign "C" dirty_TSO(MyCapability() "ptr", tso "ptr") []; } ("ptr" tso) = foreign "C" unblockOne_(MyCapability() "ptr", @@ -2030,7 +2032,7 @@ for2: if (W_[blocked_queue_hd] == END_TSO_QUEUE) { \ W_[blocked_queue_hd] = tso; \ } else { \ - foreign "C" setTSOLink(MyCapability() "ptr", W_[blocked_queue_tl], tso); \ + foreign "C" setTSOLink(MyCapability() "ptr", W_[blocked_queue_tl] "ptr", tso) []; \ } \ W_[blocked_queue_tl] = tso; @@ -2134,7 +2136,7 @@ while: if (prev == NULL) { W_[sleeping_queue] = CurrentTSO; } else { - foreign "C" setTSOLink(MyCapability() "ptr", prev, CurrentTSO) []; + foreign "C" setTSOLink(MyCapability() "ptr", prev "ptr", CurrentTSO) []; } jump stg_block_noregs; #endif |