1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
/*
* Copyright (c) 2013 Mellanox Technologies, Inc.
* All rights reserved.
* $COPYRIGHT$
*
* Additional copyrights may follow
*
* $HEADER$
*/
#include "oshmem_config.h"
#include <stdio.h>
#include <stdlib.h>
#include "oshmem/constants.h"
#include "oshmem/mca/spml/spml.h"
#include "oshmem/mca/atomic/atomic.h"
#include "oshmem/mca/atomic/base/base.h"
#include "atomic_basic.h"
int mca_atomic_basic_cswap(shmem_ctx_t ctx,
void *target,
uint64_t *prev,
uint64_t cond,
uint64_t value,
size_t nlong,
int pe)
{
int rc = OSHMEM_SUCCESS;
if (!prev) {
rc = OSHMEM_ERROR;
}
if (rc == OSHMEM_SUCCESS) {
atomic_basic_lock(ctx, pe);
rc = MCA_SPML_CALL(get(ctx, target, nlong, prev, pe));
if ((rc == OSHMEM_SUCCESS) && (!cond || !memcmp(prev, &cond, nlong))) {
rc = MCA_SPML_CALL(put(ctx, target, nlong, (void*)&value, pe));
shmem_quiet();
}
atomic_basic_unlock(ctx, pe);
}
return rc;
}
|
