diff options
Diffstat (limited to 'testsuite/tests/codeGen/should_compile/cg011.hs')
| -rw-r--r-- | testsuite/tests/codeGen/should_compile/cg011.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/testsuite/tests/codeGen/should_compile/cg011.hs b/testsuite/tests/codeGen/should_compile/cg011.hs index 5d80968547..5d86621784 100644 --- a/testsuite/tests/codeGen/should_compile/cg011.hs +++ b/testsuite/tests/codeGen/should_compile/cg011.hs @@ -1,11 +1,11 @@ {-# LANGUAGE CPP, MagicHash, BlockArguments, UnboxedTuples #-} --- Tests compilation for interlockedExchange primop. +-- Tests compilation for atomic exchange primop. module M where -import GHC.Exts (interlockedExchangeInt#, Int#, Addr#, State# ) +import GHC.Exts (atomicExchangeInt#, Int#, Addr#, State# ) swap :: Addr# -> Int# -> State# s -> (# #) -swap ptr val s = case (interlockedExchangeInt# ptr val s) of +swap ptr val s = case (atomicExchangeInt# ptr val s) of (# s2, old_val #) -> (# #) |