1 /*
2 * Copyright (c) 2016, Oracle and/or its affiliates. All rights reserved.
3 * Copyright (c) 2016 SAP SE. All rights reserved.
4 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
5 *
6 * This code is free software; you can redistribute it and/or modify it
7 * under the terms of the GNU General Public License version 2 only, as
8 * published by the Free Software Foundation.
9 *
10 * This code is distributed in the hope that it will be useful, but WITHOUT
11 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
12 * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
13 * version 2 for more details (a copy is included in the LICENSE file that
14 * accompanied this code).
15 *
16 * You should have received a copy of the GNU General Public License version
17 * 2 along with this work; if not, write to the Free Software Foundation,
18 * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
19 *
20 * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
21 * or visit www.oracle.com if you need additional information or have any
22 * questions.
57 #define inlasm_compiler_barrier() __asm__ volatile ("" : : : "memory");
58 // "bcr 15, 0" is used as two way memory barrier.
59 #define inlasm_zarch_sync() __asm__ __volatile__ ("bcr 15, 0" : : : "memory");
60
61 // Release and acquire are empty on z/Architecture, but potential
62 // optimizations of gcc must be forbidden by OrderAccess::release and
63 // OrderAccess::acquire.
64 #define inlasm_zarch_release() inlasm_compiler_barrier()
65 #define inlasm_zarch_acquire() inlasm_compiler_barrier()
66 #define inlasm_zarch_fence() inlasm_zarch_sync()
67
68 inline void OrderAccess::loadload() { inlasm_compiler_barrier(); }
69 inline void OrderAccess::storestore() { inlasm_compiler_barrier(); }
70 inline void OrderAccess::loadstore() { inlasm_compiler_barrier(); }
71 inline void OrderAccess::storeload() { inlasm_zarch_sync(); }
72
73 inline void OrderAccess::acquire() { inlasm_zarch_acquire(); }
74 inline void OrderAccess::release() { inlasm_zarch_release(); }
75 inline void OrderAccess::fence() { inlasm_zarch_sync(); }
76
77 template<> inline jbyte OrderAccess::specialized_load_acquire<jbyte> (volatile jbyte* p) { register jbyte t = *p; inlasm_zarch_acquire(); return t; }
78 template<> inline jshort OrderAccess::specialized_load_acquire<jshort>(volatile jshort* p) { register jshort t = *p; inlasm_zarch_acquire(); return t; }
79 template<> inline jint OrderAccess::specialized_load_acquire<jint> (volatile jint* p) { register jint t = *p; inlasm_zarch_acquire(); return t; }
80 template<> inline jlong OrderAccess::specialized_load_acquire<jlong> (volatile jlong* p) { register jlong t = *p; inlasm_zarch_acquire(); return t; }
81
82 #undef inlasm_compiler_barrier
83 #undef inlasm_zarch_sync
84 #undef inlasm_zarch_release
85 #undef inlasm_zarch_acquire
86 #undef inlasm_zarch_fence
87
88 #define VM_HAS_GENERALIZED_ORDER_ACCESS 1
89
90 #endif // OS_CPU_LINUX_S390_VM_ORDERACCESS_LINUX_S390_INLINE_HPP
91
92
|
1 /*
2 * Copyright (c) 2016, 2017, Oracle and/or its affiliates. All rights reserved.
3 * Copyright (c) 2016 SAP SE. All rights reserved.
4 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
5 *
6 * This code is free software; you can redistribute it and/or modify it
7 * under the terms of the GNU General Public License version 2 only, as
8 * published by the Free Software Foundation.
9 *
10 * This code is distributed in the hope that it will be useful, but WITHOUT
11 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
12 * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
13 * version 2 for more details (a copy is included in the LICENSE file that
14 * accompanied this code).
15 *
16 * You should have received a copy of the GNU General Public License version
17 * 2 along with this work; if not, write to the Free Software Foundation,
18 * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
19 *
20 * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
21 * or visit www.oracle.com if you need additional information or have any
22 * questions.
57 #define inlasm_compiler_barrier() __asm__ volatile ("" : : : "memory");
58 // "bcr 15, 0" is used as two way memory barrier.
59 #define inlasm_zarch_sync() __asm__ __volatile__ ("bcr 15, 0" : : : "memory");
60
61 // Release and acquire are empty on z/Architecture, but potential
62 // optimizations of gcc must be forbidden by OrderAccess::release and
63 // OrderAccess::acquire.
64 #define inlasm_zarch_release() inlasm_compiler_barrier()
65 #define inlasm_zarch_acquire() inlasm_compiler_barrier()
66 #define inlasm_zarch_fence() inlasm_zarch_sync()
67
68 inline void OrderAccess::loadload() { inlasm_compiler_barrier(); }
69 inline void OrderAccess::storestore() { inlasm_compiler_barrier(); }
70 inline void OrderAccess::loadstore() { inlasm_compiler_barrier(); }
71 inline void OrderAccess::storeload() { inlasm_zarch_sync(); }
72
73 inline void OrderAccess::acquire() { inlasm_zarch_acquire(); }
74 inline void OrderAccess::release() { inlasm_zarch_release(); }
75 inline void OrderAccess::fence() { inlasm_zarch_sync(); }
76
77 template<> inline jbyte OrderAccess::specialized_load_acquire<jbyte> (const volatile jbyte* p) { register jbyte t = *p; inlasm_zarch_acquire(); return t; }
78 template<> inline jshort OrderAccess::specialized_load_acquire<jshort>(const volatile jshort* p) { register jshort t = *p; inlasm_zarch_acquire(); return t; }
79 template<> inline jint OrderAccess::specialized_load_acquire<jint> (const volatile jint* p) { register jint t = *p; inlasm_zarch_acquire(); return t; }
80 template<> inline jlong OrderAccess::specialized_load_acquire<jlong> (const volatile jlong* p) { register jlong t = *p; inlasm_zarch_acquire(); return t; }
81
82 #undef inlasm_compiler_barrier
83 #undef inlasm_zarch_sync
84 #undef inlasm_zarch_release
85 #undef inlasm_zarch_acquire
86 #undef inlasm_zarch_fence
87
88 #define VM_HAS_GENERALIZED_ORDER_ACCESS 1
89
90 #endif // OS_CPU_LINUX_S390_VM_ORDERACCESS_LINUX_S390_INLINE_HPP
91
92
|