Merged with tip.
[cacao.git] / src / vm / jit / s390 / md-atomic.hpp
1 /* src/vm/jit/s390/md-atomic.hpp - s390 atomic instructions
2
3    Copyright (C) 2008
4    CACAOVM - Verein zur Foerderung der freien virtuellen Maschine CACAO
5
6    This file is part of CACAO.
7
8    This program is free software; you can redistribute it and/or
9    modify it under the terms of the GNU General Public License as
10    published by the Free Software Foundation; either version 2, or (at
11    your option) any later version.
12
13    This program is distributed in the hope that it will be useful, but
14    WITHOUT ANY WARRANTY; without even the implied warranty of
15    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
16    General Public License for more details.
17
18    You should have received a copy of the GNU General Public License
19    along with this program; if not, write to the Free Software
20    Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
21    02110-1301, USA.
22
23 */
24
25
26 #ifndef _MD_ATOMIC_HPP
27 #define _MD_ATOMIC_HPP
28
29 #include "config.h"
30
31 #include <stdint.h>
32
33 #include "threads/atomic.hpp"
34
35
36 /**
37  * An atomic compare and swap for 32-bit integer values.
38  *
39  * @param p      Pointer to memory address.
40  * @param oldval Old value to be expected.
41  * @param newval New value to be stored.
42  *
43  * @return value of the memory location before the store
44  */
45 inline uint32_t Atomic::compare_and_swap(volatile uint32_t *p, uint32_t oldval, uint32_t newval)
46 {
47         __asm__ __volatile__ (
48                 "cs %0,%3,0(%2)\n"
49                 : "+d" (oldval), "=m" (*p)
50                 : "a" (p), "d" (newval), "m" (*p)
51                 : "cc", "memory" );
52
53         return oldval;
54 }
55
56
57 /**
58  * An atomic compare and swap for 64-bit integer values.
59  *
60  * @param p      Pointer to memory address.
61  * @param oldval Old value to be expected.
62  * @param newval New value to be stored.
63  *
64  * @return value of the memory location before the store
65  */
66 inline uint64_t Atomic::compare_and_swap(volatile uint64_t *p, uint64_t oldval, uint64_t newval)
67 {
68         return generic_compare_and_swap(p, oldval, newval);
69 }
70
71
72 /**
73  * An atomic compare and swap for pointer values.
74  *
75  * @param p      Pointer to memory address.
76  * @param oldval Old value to be expected.
77  * @param newval New value to be stored.
78  *
79  * @return value of the memory location before the store
80  */
81 inline void* Atomic::compare_and_swap(volatile void** p, void* oldval, void* newval)
82 {
83         return (void*) compare_and_swap((volatile uint32_t*) p, (uint32_t) oldval, (uint32_t) newval);
84 }
85
86
87 /**
88  * A memory barrier.
89  */
90 inline void Atomic::memory_barrier(void)
91 {
92         __asm__ __volatile__ ("bcr 15,0" : : : "memory" );
93 }
94
95
96 /**
97  * A write memory barrier.
98  */
99 inline void Atomic::write_memory_barrier(void)
100 {
101         memory_barrier();
102 }
103
104 /**
105  * An instruction barrier.
106  */
107 inline void Atomic::instruction_barrier(void)
108 {
109         memory_barrier();
110 }
111
112 #endif // _MD_ATOMIC_HPP
113
114
115 /*
116  * These are local overrides for various environment variables in Emacs.
117  * Please do not remove this and leave it at the end of the file, where
118  * Emacs will automagically detect them.
119  * ---------------------------------------------------------------------
120  * Local variables:
121  * mode: c++
122  * indent-tabs-mode: t
123  * c-basic-offset: 4
124  * tab-width: 4
125  * End:
126  * vim:noexpandtab:sw=4:ts=4:
127  */