1 /*
2 * Copyright (c) 2017, 2025, Oracle and/or its affiliates. All rights reserved.
3 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
4 *
5 * This code is free software; you can redistribute it and/or modify it
6 * under the terms of the GNU General Public License version 2 only, as
7 * published by the Free Software Foundation.
8 *
9 * This code is distributed in the hope that it will be useful, but WITHOUT
10 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
11 * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
12 * version 2 for more details (a copy is included in the LICENSE file that
13 * accompanied this code).
14 *
15 * You should have received a copy of the GNU General Public License version
16 * 2 along with this work; if not, write to the Free Software Foundation,
17 * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
18 *
19 * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
20 * or visit www.oracle.com if you need additional information or have any
21 * questions.
22 */
23
24 #ifndef SHARE_GC_Z_ZBARRIERSET_INLINE_HPP
25 #define SHARE_GC_Z_ZBARRIERSET_INLINE_HPP
26
27 #include "gc/z/zBarrierSet.hpp"
28
29 #include "gc/shared/accessBarrierSupport.inline.hpp"
30 #include "gc/z/zAddress.inline.hpp"
31 #include "gc/z/zHeap.hpp"
32 #include "gc/z/zNMethod.hpp"
33 #include "gc/z/zUtils.inline.hpp"
34 #include "oops/objArrayOop.hpp"
35 #include "utilities/debug.hpp"
36
37 template <DecoratorSet decorators, typename BarrierSetT>
38 template <DecoratorSet expected>
39 inline void ZBarrierSet::AccessBarrier<decorators, BarrierSetT>::verify_decorators_present() {
40 if ((decorators & expected) == 0) {
41 fatal("Using unsupported access decorators");
42 }
43 }
44
45 template <DecoratorSet decorators, typename BarrierSetT>
46 template <DecoratorSet expected>
47 inline void ZBarrierSet::AccessBarrier<decorators, BarrierSetT>::verify_decorators_absent() {
48 if ((decorators & expected) != 0) {
49 fatal("Using unsupported access decorators");
50 }
51 }
52
53 template <DecoratorSet decorators, typename BarrierSetT>
54 inline void ZBarrierSet::AccessBarrier<decorators, BarrierSetT>::unsupported() {
55 ShouldNotReachHere();
56 }
57
58 template <DecoratorSet decorators, typename BarrierSetT>
59 inline zpointer* ZBarrierSet::AccessBarrier<decorators, BarrierSetT>::field_addr(oop base, ptrdiff_t offset) {
60 assert(base != nullptr, "Invalid base");
61 return reinterpret_cast<zpointer*>(reinterpret_cast<intptr_t>((void*)base) + offset);
62 }
63
64 template <DecoratorSet decorators, typename BarrierSetT>
65 inline zaddress ZBarrierSet::AccessBarrier<decorators, BarrierSetT>::load_barrier(zpointer* p, zpointer o) {
66 verify_decorators_absent<ON_UNKNOWN_OOP_REF>();
67
68 if (HasDecorator<decorators, AS_NO_KEEPALIVE>::value) {
69 if (HasDecorator<decorators, ON_STRONG_OOP_REF>::value) {
70 // Load barriers on strong oop refs don't keep objects alive
71 return ZBarrierSet::load_barrier_on_oop_field_preloaded(p, o);
72 } else if (HasDecorator<decorators, ON_WEAK_OOP_REF>::value) {
73 return ZBarrierSet::no_keep_alive_load_barrier_on_weak_oop_field_preloaded(p, o);
74 } else {
75 assert((HasDecorator<decorators, ON_PHANTOM_OOP_REF>::value), "Must be");
76 return ZBarrierSet::no_keep_alive_load_barrier_on_phantom_oop_field_preloaded(p, o);
77 }
78 } else {
79 if (HasDecorator<decorators, ON_STRONG_OOP_REF>::value) {
80 return ZBarrierSet::load_barrier_on_oop_field_preloaded(p, o);
81 } else if (HasDecorator<decorators, ON_WEAK_OOP_REF>::value) {
82 return ZBarrierSet::load_barrier_on_weak_oop_field_preloaded(p, o);
83 } else {
84 assert((HasDecorator<decorators, ON_PHANTOM_OOP_REF>::value), "Must be");
85 return ZBarrierSet::load_barrier_on_phantom_oop_field_preloaded(p, o);
86 }
87 }
88 }
89
90 template <DecoratorSet decorators, typename BarrierSetT>
91 inline zaddress ZBarrierSet::AccessBarrier<decorators, BarrierSetT>::load_barrier_on_unknown_oop_ref(oop base, ptrdiff_t offset, zpointer* p, zpointer o) {
92 verify_decorators_present<ON_UNKNOWN_OOP_REF>();
93
94 const DecoratorSet decorators_known_strength =
95 AccessBarrierSupport::resolve_possibly_unknown_oop_ref_strength<decorators>(base, offset);
96
97 if (HasDecorator<decorators, AS_NO_KEEPALIVE>::value) {
98 if (decorators_known_strength & ON_STRONG_OOP_REF) {
99 // Load barriers on strong oop refs don't keep objects alive
100 return ZBarrierSet::load_barrier_on_oop_field_preloaded(p, o);
101 } else if (decorators_known_strength & ON_WEAK_OOP_REF) {
102 return ZBarrierSet::no_keep_alive_load_barrier_on_weak_oop_field_preloaded(p, o);
103 } else {
104 assert(decorators_known_strength & ON_PHANTOM_OOP_REF, "Must be");
105 return ZBarrierSet::no_keep_alive_load_barrier_on_phantom_oop_field_preloaded(p, o);
106 }
107 } else {
108 if (decorators_known_strength & ON_STRONG_OOP_REF) {
109 return ZBarrierSet::load_barrier_on_oop_field_preloaded(p, o);
110 } else if (decorators_known_strength & ON_WEAK_OOP_REF) {
111 return ZBarrierSet::load_barrier_on_weak_oop_field_preloaded(p, o);
112 } else {
113 assert(decorators_known_strength & ON_PHANTOM_OOP_REF, "Must be");
114 return ZBarrierSet::load_barrier_on_phantom_oop_field_preloaded(p, o);
115 }
116 }
117 }
118
119 inline zpointer ZBarrierSet::store_good(oop obj) {
120 assert(ZPointerStoreGoodMask != 0, "sanity");
121
122 const zaddress addr = to_zaddress(obj);
123 return ZAddress::store_good(addr);
124 }
125
126 template <DecoratorSet decorators, typename BarrierSetT>
127 inline void ZBarrierSet::AccessBarrier<decorators, BarrierSetT>::store_barrier_heap_with_healing(zpointer* p) {
128 if (!HasDecorator<decorators, IS_DEST_UNINITIALIZED>::value) {
129 ZBarrierSet::store_barrier_on_heap_oop_field(p, true /* heal */);
130 } else {
131 assert(false, "Should not be used on uninitialized memory");
132 }
133 }
134
135 template <DecoratorSet decorators, typename BarrierSetT>
136 inline void ZBarrierSet::AccessBarrier<decorators, BarrierSetT>::store_barrier_heap_without_healing(zpointer* p) {
137 if (!HasDecorator<decorators, IS_DEST_UNINITIALIZED>::value) {
138 ZBarrierSet::store_barrier_on_heap_oop_field(p, false /* heal */);
139 }
140 }
141
142 template <DecoratorSet decorators, typename BarrierSetT>
143 inline void ZBarrierSet::AccessBarrier<decorators, BarrierSetT>::no_keep_alive_store_barrier_heap(zpointer* p) {
144 if (!HasDecorator<decorators, IS_DEST_UNINITIALIZED>::value) {
145 ZBarrierSet::no_keep_alive_store_barrier_on_heap_oop_field(p);
146 }
147 }
148
149 template <DecoratorSet decorators, typename BarrierSetT>
150 inline void ZBarrierSet::AccessBarrier<decorators, BarrierSetT>::store_barrier_native_with_healing(zpointer* p) {
151 if (!HasDecorator<decorators, IS_DEST_UNINITIALIZED>::value) {
152 ZBarrierSet::store_barrier_on_native_oop_field(p, true /* heal */);
153 } else {
154 assert(false, "Should not be used on uninitialized memory");
155 }
156 }
157
158 template <DecoratorSet decorators, typename BarrierSetT>
159 inline void ZBarrierSet::AccessBarrier<decorators, BarrierSetT>::store_barrier_native_without_healing(zpointer* p) {
160 if (!HasDecorator<decorators, IS_DEST_UNINITIALIZED>::value) {
161 ZBarrierSet::store_barrier_on_native_oop_field(p, false /* heal */);
162 }
163 }
164
165 //
166 // In heap
167 //
168 template <DecoratorSet decorators, typename BarrierSetT>
169 inline oop ZBarrierSet::AccessBarrier<decorators, BarrierSetT>::oop_load_in_heap(zpointer* p) {
170 verify_decorators_absent<ON_UNKNOWN_OOP_REF>();
171
172 const zpointer o = Raw::load_in_heap(p);
173 assert_is_valid(o);
174
175 return to_oop(load_barrier(p, o));
176 }
177
178 template <DecoratorSet decorators, typename BarrierSetT>
179 inline oop ZBarrierSet::AccessBarrier<decorators, BarrierSetT>::oop_load_in_heap_at(oop base, ptrdiff_t offset) {
180 zpointer* const p = field_addr(base, offset);
181
182 const zpointer o = Raw::load_in_heap(p);
183 assert_is_valid(o);
184
185 if (HasDecorator<decorators, ON_UNKNOWN_OOP_REF>::value) {
186 return to_oop(load_barrier_on_unknown_oop_ref(base, offset, p, o));
187 }
188
189 return to_oop(load_barrier(p, o));
190 }
191
192 template <DecoratorSet decorators>
193 bool is_store_barrier_no_keep_alive() {
194 if (HasDecorator<decorators, ON_STRONG_OOP_REF>::value) {
195 return HasDecorator<decorators, AS_NO_KEEPALIVE>::value;
196 }
197
198 if (HasDecorator<decorators, ON_WEAK_OOP_REF>::value) {
199 return true;
200 }
201
202 assert((decorators & ON_PHANTOM_OOP_REF) != 0, "Must be");
203 return true;
204 }
205
206 template <DecoratorSet decorators>
207 inline bool is_store_barrier_no_keep_alive(oop base, ptrdiff_t offset) {
208 if (!HasDecorator<decorators, ON_UNKNOWN_OOP_REF>::value) {
209 return is_store_barrier_no_keep_alive<decorators>();
210 }
211
212 const DecoratorSet decorators_known_strength =
213 AccessBarrierSupport::resolve_possibly_unknown_oop_ref_strength<decorators>(base, offset);
214
215 if ((decorators_known_strength & ON_STRONG_OOP_REF) != 0) {
216 return (decorators & AS_NO_KEEPALIVE) != 0;
217 }
218
219 if ((decorators_known_strength & ON_WEAK_OOP_REF) != 0) {
220 return true;
221 }
222
223 assert((decorators_known_strength & ON_PHANTOM_OOP_REF) != 0, "Must be");
224 return true;
225 }
226
227 template <DecoratorSet decorators, typename BarrierSetT>
228 inline void ZBarrierSet::AccessBarrier<decorators, BarrierSetT>::oop_store_in_heap(zpointer* p, oop value) {
229 verify_decorators_absent<ON_UNKNOWN_OOP_REF>();
230
231 if (is_store_barrier_no_keep_alive<decorators>()) {
232 no_keep_alive_store_barrier_heap(p);
233 } else {
234 store_barrier_heap_without_healing(p);
235 }
236
237 Raw::store_in_heap(p, store_good(value));
238 }
239
240 template <DecoratorSet decorators, typename BarrierSetT>
241 inline void ZBarrierSet::AccessBarrier<decorators, BarrierSetT>::oop_store_in_heap_at(oop base, ptrdiff_t offset, oop value) {
242 zpointer* const p = field_addr(base, offset);
243
244 if (is_store_barrier_no_keep_alive<decorators>(base, offset)) {
245 no_keep_alive_store_barrier_heap(p);
246 } else {
247 store_barrier_heap_without_healing(p);
248 }
249
250 Raw::store_in_heap(p, store_good(value));
251 }
252
253 template <DecoratorSet decorators, typename BarrierSetT>
254 inline void ZBarrierSet::AccessBarrier<decorators, BarrierSetT>::oop_store_not_in_heap(zpointer* p, oop value) {
255 verify_decorators_absent<ON_UNKNOWN_OOP_REF>();
256
257 if (!is_store_barrier_no_keep_alive<decorators>()) {
258 store_barrier_native_without_healing(p);
259 }
260
261 Raw::store(p, store_good(value));
262 }
263
264 template <DecoratorSet decorators, typename BarrierSetT>
265 inline oop ZBarrierSet::AccessBarrier<decorators, BarrierSetT>::oop_atomic_cmpxchg_in_heap(zpointer* p, oop compare_value, oop new_value) {
266 verify_decorators_present<ON_STRONG_OOP_REF>();
267 verify_decorators_absent<AS_NO_KEEPALIVE>();
268
269 store_barrier_heap_with_healing(p);
270
271 const zpointer o = Raw::atomic_cmpxchg_in_heap(p, store_good(compare_value), store_good(new_value));
272 assert_is_valid(o);
273
274 return to_oop(ZPointer::uncolor_store_good(o));
275 }
276
277 template <DecoratorSet decorators, typename BarrierSetT>
278 inline oop ZBarrierSet::AccessBarrier<decorators, BarrierSetT>::oop_atomic_cmpxchg_in_heap_at(oop base, ptrdiff_t offset, oop compare_value, oop new_value) {
279 verify_decorators_present<ON_STRONG_OOP_REF | ON_UNKNOWN_OOP_REF>();
280 verify_decorators_absent<AS_NO_KEEPALIVE>();
281
282 // Through Unsafe.CompareAndExchangeObject()/CompareAndSetObject() we can receive
283 // calls with ON_UNKNOWN_OOP_REF set. However, we treat these as ON_STRONG_OOP_REF,
284 // with the motivation that if you're doing Unsafe operations on a Reference.referent
285 // field, then you're on your own anyway.
286 zpointer* const p = field_addr(base, offset);
287
288 store_barrier_heap_with_healing(p);
289
290 const zpointer o = Raw::atomic_cmpxchg_in_heap(p, store_good(compare_value), store_good(new_value));
291 assert_is_valid(o);
292
293 return to_oop(ZPointer::uncolor_store_good(o));
294 }
295
296 template <DecoratorSet decorators, typename BarrierSetT>
297 inline oop ZBarrierSet::AccessBarrier<decorators, BarrierSetT>::oop_atomic_xchg_in_heap(zpointer* p, oop new_value) {
298 verify_decorators_present<ON_STRONG_OOP_REF>();
299 verify_decorators_absent<AS_NO_KEEPALIVE>();
300
301 store_barrier_heap_with_healing(p);
302
303 const zpointer o = Raw::atomic_xchg_in_heap(p, store_good(new_value));
304 assert_is_valid(o);
305
306 return to_oop(ZPointer::uncolor_store_good(o));
307 }
308
309 template <DecoratorSet decorators, typename BarrierSetT>
310 inline oop ZBarrierSet::AccessBarrier<decorators, BarrierSetT>::oop_atomic_xchg_in_heap_at(oop base, ptrdiff_t offset, oop new_value) {
311 verify_decorators_present<ON_STRONG_OOP_REF>();
312 verify_decorators_absent<AS_NO_KEEPALIVE>();
313
314 zpointer* const p = field_addr(base, offset);
315
316 store_barrier_heap_with_healing(p);
317
318 const zpointer o = Raw::atomic_xchg_in_heap(p, store_good(new_value));
319 assert_is_valid(o);
320
321 return to_oop(ZPointer::uncolor_store_good(o));
322 }
323
324 template <DecoratorSet decorators, typename BarrierSetT>
325 inline zaddress ZBarrierSet::AccessBarrier<decorators, BarrierSetT>::oop_copy_one_barriers(zpointer* dst, zpointer* src) {
326 store_barrier_heap_without_healing(dst);
327
328 return ZBarrierSet::load_barrier_on_oop_field(src);
329 }
330
331 template <DecoratorSet decorators, typename BarrierSetT>
332 inline OopCopyResult ZBarrierSet::AccessBarrier<decorators, BarrierSetT>::oop_copy_one(zpointer* dst, zpointer* src) {
333 const zaddress obj = oop_copy_one_barriers(dst, src);
334
335 // Future location for null-restriction check and failure reporting
336
337 AtomicAccess::store(dst, ZAddress::store_good(obj));
338
339 return OopCopyResult::ok;
340 }
341
342 template <DecoratorSet decorators, typename BarrierSetT>
343 inline OopCopyResult ZBarrierSet::AccessBarrier<decorators, BarrierSetT>::oop_copy_one_check_cast(zpointer* dst, zpointer* src, Klass* dst_klass) {
344 const zaddress obj = oop_copy_one_barriers(dst, src);
345
346 if (!oopDesc::is_instanceof_or_null(to_oop(obj), dst_klass)) {
347 // Check cast failed
348 return OopCopyResult::failed_check_class_cast;
349 }
350
351 AtomicAccess::store(dst, ZAddress::store_good(obj));
352
353 return OopCopyResult::ok;
354 }
355
356 template <DecoratorSet decorators, typename BarrierSetT>
357 inline OopCopyResult ZBarrierSet::AccessBarrier<decorators, BarrierSetT>::oop_arraycopy_in_heap_check_cast(zpointer* dst, zpointer* src, size_t length, Klass* dst_klass) {
358 // Check cast and copy each elements
359 for (const zpointer* const end = src + length; src < end; src++, dst++) {
360 const OopCopyResult result = oop_copy_one_check_cast(dst, src, dst_klass);
361 if (result != OopCopyResult::ok) {
362 return result;
363 }
364 }
365
366 return OopCopyResult::ok;
367 }
368
369 template <DecoratorSet decorators, typename BarrierSetT>
370 inline OopCopyResult ZBarrierSet::AccessBarrier<decorators, BarrierSetT>::oop_arraycopy_in_heap_no_check_cast(zpointer* dst, zpointer* src, size_t length) {
371 const bool is_disjoint = HasDecorator<decorators, ARRAYCOPY_DISJOINT>::value;
372
373 if (is_disjoint || src > dst) {
374 for (const zpointer* const end = src + length; src < end; src++, dst++) {
375 const OopCopyResult result = oop_copy_one(dst, src);
376 if (result != OopCopyResult::ok) {
377 return result;
378 }
379 }
380
381 return OopCopyResult::ok;
382 }
383
384 if (src < dst) {
385 const zpointer* const end = src;
386 src += length - 1;
387 dst += length - 1;
388 for ( ; src >= end; src--, dst--) {
389 const OopCopyResult result = oop_copy_one(dst, src);
390 if (result != OopCopyResult::ok) {
391 return result;
392 }
393 }
394
395 return OopCopyResult::ok;
396 }
397
398 // src and dst are the same; nothing to do
399 return OopCopyResult::ok;
400 }
401
402 template <DecoratorSet decorators, typename BarrierSetT>
403 inline OopCopyResult ZBarrierSet::AccessBarrier<decorators, BarrierSetT>::oop_arraycopy_in_heap(arrayOop src_obj, size_t src_offset_in_bytes, zpointer* src_raw,
404 arrayOop dst_obj, size_t dst_offset_in_bytes, zpointer* dst_raw,
405 size_t length) {
406 zpointer* const src = arrayOopDesc::obj_offset_to_raw(src_obj, src_offset_in_bytes, src_raw);
407 zpointer* const dst = arrayOopDesc::obj_offset_to_raw(dst_obj, dst_offset_in_bytes, dst_raw);
408
409 if (HasDecorator<decorators, ARRAYCOPY_CHECKCAST>::value) {
410 Klass* const dst_klass = objArrayOop(dst_obj)->element_klass();
411 return oop_arraycopy_in_heap_check_cast(dst, src, length, dst_klass);
412 } else {
413 return oop_arraycopy_in_heap_no_check_cast(dst, src, length);
414 }
415 }
416
417 template <DecoratorSet decorators, typename BarrierSetT>
418 inline void ZBarrierSet::AccessBarrier<decorators, BarrierSetT>::clone_in_heap(oop src, oop dst, size_t size) {
419 check_is_valid_zaddress(src);
420 check_is_valid_zaddress(dst);
421 precond(src->klass() == dst->klass());
422
423 clone_obj(to_zaddress(src), to_zaddress(dst), ZUtils::words_to_bytes(size));
424 }
425
426 //
427 // Not in heap
428 //
429 template <DecoratorSet decorators, typename BarrierSetT>
430 inline oop ZBarrierSet::AccessBarrier<decorators, BarrierSetT>::oop_load_not_in_heap(zpointer* p) {
431 verify_decorators_absent<ON_UNKNOWN_OOP_REF>();
432
433 const zpointer o = Raw::template load<zpointer>(p);
434 assert_is_valid(o);
435 return to_oop(load_barrier(p, o));
436 }
437
438 template <DecoratorSet decorators, typename BarrierSetT>
439 inline oop ZBarrierSet::AccessBarrier<decorators, BarrierSetT>::oop_load_not_in_heap(oop* p) {
440 verify_decorators_absent<ON_UNKNOWN_OOP_REF>();
441
442 return oop_load_not_in_heap((zpointer*)p);
443 }
444
445 template <DecoratorSet decorators, typename BarrierSetT>
446 inline oop ZBarrierSet::AccessBarrier<decorators, BarrierSetT>::oop_atomic_cmpxchg_not_in_heap(zpointer* p, oop compare_value, oop new_value) {
447 verify_decorators_present<ON_STRONG_OOP_REF>();
448 verify_decorators_absent<AS_NO_KEEPALIVE>();
449
450 store_barrier_native_with_healing(p);
451
452 const zpointer o = Raw::atomic_cmpxchg(p, store_good(compare_value), store_good(new_value));
453 assert_is_valid(o);
454
455 return to_oop(ZPointer::uncolor_store_good(o));
456 }
457
458 template <DecoratorSet decorators, typename BarrierSetT>
459 inline oop ZBarrierSet::AccessBarrier<decorators, BarrierSetT>::oop_atomic_xchg_not_in_heap(zpointer* p, oop new_value) {
460 verify_decorators_present<ON_STRONG_OOP_REF>();
461 verify_decorators_absent<AS_NO_KEEPALIVE>();
462
463 store_barrier_native_with_healing(p);
464
465 const zpointer o = Raw::atomic_xchg(p, store_good(new_value));
466 assert_is_valid(o);
467
468 return to_oop(ZPointer::uncolor_store_good(o));
469 }
470
471 #endif // SHARE_GC_Z_ZBARRIERSET_INLINE_HPP