testsuite/tests/rts/atomicxchg.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

#include "Rts.h"

StgWord i;

int main(int argc, char *argv[])
{
    StgWord j;

    i = 0;
    j = xchg(&i,42);
    CHECK(j == 0);
    CHECK(i == 42);

    return 0;
}