diff options
| author | Ryan Newton <rrnewton@gmail.com> | 2013-08-04 19:18:26 -0400 |
|---|---|---|
| committer | Ryan Newton <rrnewton@gmail.com> | 2013-08-21 00:02:30 -0400 |
| commit | 25ad01533aaaf1ccf69e1b7216e66de025b8131b (patch) | |
| tree | 351e95dc5a87cee41f7a994bcc02f876977419f3 /rts/PrimOps.cmm | |
| parent | 8750d549d4d7aca3e397de3e217b7cca9e1c1d43 (diff) | |
| download | haskell-25ad01533aaaf1ccf69e1b7216e66de025b8131b.tar.gz | |
Eliminate atomic_inc_by and instead medofiy atomic_inc.
Diffstat (limited to 'rts/PrimOps.cmm')
| -rw-r--r-- | rts/PrimOps.cmm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/PrimOps.cmm b/rts/PrimOps.cmm index b7177ca130..a07c1def97 100644 --- a/rts/PrimOps.cmm +++ b/rts/PrimOps.cmm @@ -157,7 +157,7 @@ stg_fetchAddIntArrayzh( gcptr arr, W_ ind, W_ incr ) gcptr p, h; p = arr + SIZEOF_StgArrWords + WDS(ind); - (h) = ccall atomic_inc_by(p, incr); + (h) = ccall atomic_inc(p, incr); return(h); } |