Add cas operation on integers.

rakudo · Aug 15, 2017 · 413b533 · 413b533
1 parent 6eb8f7e
commit 413b533
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/src/core/Atomic.pm b/src/core/Atomic.pm
@@ -45,6 +45,18 @@ multi sub cas($target is rw, $expected, $value) {
     nqp::cas($target, $expected, $value)
 }
 
+multi sub cas(atomicint $target is rw, int $expected, int $value) {
+    nqp::cas_i($target, $expected, $value)
+}
+
+multi sub cas(atomicint $target is rw, Int $expected, Int $value) {
+    nqp::cas_i($target, $expected, $value)
+}
+
+multi sub cas(atomicint $target is rw, $expected, $value) {
+    nqp::cas_i($target, $expected.Int, $value.Int)
+}
+
 multi sub cas($target is rw, &code) {
     my $current := nqp::atomicload($target);
     loop {