view tests/mini/atomic1.d @ 1065:dc576c7e4b1e

Fix to make sure to create gen/ in build dir and unbreak build with older perl
author Frits van Bommel <fvbommel wxs.nl>
date Sun, 08 Mar 2009 16:37:55 +0100
parents cecfee2d01a8
children
line wrap: on
line source

module mini.atomic1;

pragma(intrinsic, "llvm.atomic.swap.i#.p0i#")
    T atomic_swap(T)(T* ptr, T val);

void main()
{
    int i = 42;
    int j = atomic_swap(&i, 43);
    assert(j == 42);
    assert(i == 43);
}