1 /*
2 * Copyright (c) 2018, 2019, Red Hat, Inc. All rights reserved.
3 *
4 * This code is free software; you can redistribute it and/or modify it
5 * under the terms of the GNU General Public License version 2 only, as
6 * published by the Free Software Foundation.
7 *
8 * This code is distributed in the hope that it will be useful, but WITHOUT
9 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
10 * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
11 * version 2 for more details (a copy is included in the LICENSE file that
12 * accompanied this code).
13 *
14 * You should have received a copy of the GNU General Public License version
15 * 2 along with this work; if not, write to the Free Software Foundation,
16 * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
17 *
18 * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
19 * or visit www.oracle.com if you need additional information or have any
20 * questions.
21 *
22 */
23
24 #include "precompiled.hpp"
25
26 #include "gc/shenandoah/shenandoahAsserts.hpp"
27 #include "gc/shenandoah/shenandoahForwarding.hpp"
28 #include "gc/shenandoah/shenandoahHeap.inline.hpp"
29 #include "gc/shenandoah/shenandoahHeapRegionSet.inline.hpp"
30 #include "gc/shenandoah/shenandoahMarkingContext.inline.hpp"
31 #include "gc/shenandoah/shenandoahTraversalGC.hpp"
32 #include "gc/shenandoah/shenandoahUtils.hpp"
33 #include "memory/resourceArea.hpp"
34
35 void print_raw_memory(ShenandoahMessageBuffer &msg, void* loc) {
36 // Be extra safe. Only access data that is guaranteed to be safe:
37 // should be in heap, in known committed region, within that region.
38
39 ShenandoahHeap* heap = ShenandoahHeap::heap();
40 if (!heap->is_in(loc)) return;
41
42 ShenandoahHeapRegion* r = heap->heap_region_containing(loc);
43 if (r != NULL && r->is_committed()) {
44 address start = MAX2((address) r->bottom(), (address) loc - 32);
45 address end = MIN2((address) r->end(), (address) loc + 128);
46 if (start >= end) return;
47
48 stringStream ss;
49 os::print_hex_dump(&ss, start, end, 4);
50 msg.append("\n");
51 msg.append("Raw heap memory:\n%s", ss.as_string());
52 }
53 }
54
55 void ShenandoahAsserts::print_obj(ShenandoahMessageBuffer& msg, oop obj) {
56 ShenandoahHeap* heap = ShenandoahHeap::heap();
57 ShenandoahHeapRegion *r = heap->heap_region_containing(obj);
58
59 ResourceMark rm;
60 stringStream ss;
61 r->print_on(&ss);
62
63 ShenandoahMarkingContext* const ctx = heap->marking_context();
64
65 msg.append(" " PTR_FORMAT " - klass " PTR_FORMAT " %s\n", p2i(obj), p2i(obj->klass()), obj->klass()->external_name());
66 msg.append(" %3s allocated after mark start\n", ctx->allocated_after_mark_start((HeapWord *) obj) ? "" : "not");
67 msg.append(" %3s marked \n", ctx->is_marked(obj) ? "" : "not");
68 msg.append(" %3s in collection set\n", heap->in_collection_set(obj) ? "" : "not");
69 if (heap->traversal_gc() != NULL) {
70 msg.append(" %3s in traversal set\n", heap->traversal_gc()->traversal_set()->is_in((HeapWord*) obj) ? "" : "not");
71 }
72 msg.append(" region: %s", ss.as_string());
73 }
74
75 void ShenandoahAsserts::print_non_obj(ShenandoahMessageBuffer& msg, void* loc) {
76 ShenandoahHeap* heap = ShenandoahHeap::heap();
77 if (heap->is_in(loc)) {
78 msg.append(" inside Java heap\n");
79 ShenandoahHeapRegion *r = heap->heap_region_containing(loc);
80 stringStream ss;
81 r->print_on(&ss);
82
83 msg.append(" %3s in collection set\n", heap->in_collection_set(loc) ? "" : "not");
84 msg.append(" region: %s", ss.as_string());
85 } else {
86 msg.append(" outside of Java heap\n");
87 stringStream ss;
88 os::print_location(&ss, (intptr_t) loc, false);
89 msg.append(" %s", ss.as_string());
90 }
91 }
92
93 void ShenandoahAsserts::print_obj_safe(ShenandoahMessageBuffer& msg, void* loc) {
94 ShenandoahHeap* heap = ShenandoahHeap::heap();
95 msg.append(" " PTR_FORMAT " - safe print, no details\n", p2i(loc));
96 if (heap->is_in(loc)) {
97 ShenandoahHeapRegion* r = heap->heap_region_containing(loc);
98 if (r != NULL) {
99 stringStream ss;
100 r->print_on(&ss);
101 msg.append(" region: %s", ss.as_string());
102 print_raw_memory(msg, loc);
103 }
104 }
105 }
106
107 void ShenandoahAsserts::print_failure(SafeLevel level, oop obj, void* interior_loc, oop loc,
108 const char* phase, const char* label,
109 const char* file, int line) {
110 ShenandoahHeap* heap = ShenandoahHeap::heap();
111 ResourceMark rm;
112
113 bool loc_in_heap = (loc != NULL && heap->is_in(loc));
114
115 ShenandoahMessageBuffer msg("%s; %s\n\n", phase, label);
116
117 msg.append("Referenced from:\n");
118 if (interior_loc != NULL) {
119 msg.append(" interior location: " PTR_FORMAT "\n", p2i(interior_loc));
120 if (loc_in_heap) {
121 print_obj(msg, loc);
122 } else {
123 print_non_obj(msg, interior_loc);
124 }
125 } else {
126 msg.append(" no interior location recorded (probably a plain heap scan, or detached oop)\n");
127 }
128 msg.append("\n");
129
130 msg.append("Object:\n");
131 if (level >= _safe_oop) {
132 print_obj(msg, obj);
133 } else {
134 print_obj_safe(msg, obj);
135 }
136 msg.append("\n");
137
138 if (level >= _safe_oop) {
139 oop fwd = (oop) ShenandoahForwarding::get_forwardee_raw_unchecked(obj);
140 msg.append("Forwardee:\n");
141 if (!oopDesc::equals_raw(obj, fwd)) {
142 if (level >= _safe_oop_fwd) {
143 print_obj(msg, fwd);
144 } else {
145 print_obj_safe(msg, fwd);
146 }
147 } else {
148 msg.append(" (the object itself)");
149 }
150 msg.append("\n");
151 }
152
153 if (level >= _safe_oop_fwd) {
154 oop fwd = (oop) ShenandoahForwarding::get_forwardee_raw_unchecked(obj);
155 oop fwd2 = (oop) ShenandoahForwarding::get_forwardee_raw_unchecked(fwd);
156 if (!oopDesc::equals_raw(fwd, fwd2)) {
157 msg.append("Second forwardee:\n");
158 print_obj_safe(msg, fwd2);
159 msg.append("\n");
160 }
161 }
162
163 report_vm_error(file, line, msg.buffer());
164 }
165
166 void ShenandoahAsserts::assert_in_heap(void* interior_loc, oop obj, const char *file, int line) {
167 ShenandoahHeap* heap = ShenandoahHeap::heap_no_check();
168
169 if (!heap->is_in(obj)) {
170 print_failure(_safe_unknown, obj, interior_loc, NULL, "Shenandoah assert_in_heap failed",
171 "oop must point to a heap address",
172 file, line);
173 }
174 }
175
176 void ShenandoahAsserts::assert_correct(void* interior_loc, oop obj, const char* file, int line) {
177 ShenandoahHeap* heap = ShenandoahHeap::heap_no_check();
178
179 // Step 1. Check that obj is correct.
180 // After this step, it is safe to call heap_region_containing().
181 if (!heap->is_in(obj)) {
182 print_failure(_safe_unknown, obj, interior_loc, NULL, "Shenandoah assert_correct failed",
183 "oop must point to a heap address",
184 file, line);
185 }
186
187 Klass* obj_klass = obj->klass_or_null();
188 if (obj_klass == NULL) {
189 print_failure(_safe_unknown, obj, interior_loc, NULL, "Shenandoah assert_correct failed",
190 "Object klass pointer should not be NULL",
191 file,line);
192 }
193
194 if (!Metaspace::contains(obj_klass)) {
195 print_failure(_safe_unknown, obj, interior_loc, NULL, "Shenandoah assert_correct failed",
196 "Object klass pointer must go to metaspace",
197 file,line);
198 }
199
200 oop fwd = oop(ShenandoahForwarding::get_forwardee_raw_unchecked(obj));
201
202 if (!oopDesc::equals_raw(obj, fwd)) {
203 // When Full GC moves the objects, we cannot trust fwdptrs. If we got here, it means something
204 // tries fwdptr manipulation when Full GC is running. The only exception is using the fwdptr
205 // that still points to the object itself.
206 if (heap->is_full_gc_move_in_progress()) {
207 print_failure(_safe_oop, obj, interior_loc, NULL, "Shenandoah assert_correct failed",
208 "Non-trivial forwarding pointer during Full GC moves, probable bug.",
209 file, line);
210 }
211
212 // Step 2. Check that forwardee is correct
213 if (!heap->is_in(fwd)) {
214 print_failure(_safe_oop, obj, interior_loc, NULL, "Shenandoah assert_correct failed",
215 "Forwardee must point to a heap address",
216 file, line);
217 }
218
219 if (obj_klass != fwd->klass()) {
220 print_failure(_safe_oop, obj, interior_loc, NULL, "Shenandoah assert_correct failed",
221 "Forwardee klass disagrees with object class",
222 file, line);
223 }
224
225 // Step 3. Check that forwardee points to correct region
226 if (heap->heap_region_index_containing(fwd) == heap->heap_region_index_containing(obj)) {
227 print_failure(_safe_all, obj, interior_loc, NULL, "Shenandoah assert_correct failed",
228 "Non-trivial forwardee should in another region",
229 file, line);
230 }
231
232 // Step 4. Check for multiple forwardings
233 oop fwd2 = oop(ShenandoahForwarding::get_forwardee_raw_unchecked(fwd));
234 if (!oopDesc::equals_raw(fwd, fwd2)) {
235 print_failure(_safe_all, obj, interior_loc, NULL, "Shenandoah assert_correct failed",
236 "Multiple forwardings",
237 file, line);
238 }
239 }
240 }
241
242 void ShenandoahAsserts::assert_in_correct_region(void* interior_loc, oop obj, const char* file, int line) {
243 assert_correct(interior_loc, obj, file, line);
244
245 ShenandoahHeap* heap = ShenandoahHeap::heap_no_check();
246 ShenandoahHeapRegion* r = heap->heap_region_containing(obj);
247 if (!r->is_active()) {
248 print_failure(_safe_unknown, obj, interior_loc, NULL, "Shenandoah assert_in_correct_region failed",
249 "Object must reside in active region",
250 file, line);
251 }
252
253 size_t alloc_size = obj->size() + ShenandoahForwarding::word_size();
254 if (alloc_size > ShenandoahHeapRegion::humongous_threshold_words()) {
255 size_t idx = r->region_number();
256 size_t num_regions = ShenandoahHeapRegion::required_regions(alloc_size * HeapWordSize);
257 for (size_t i = idx; i < idx + num_regions; i++) {
258 ShenandoahHeapRegion* chain_reg = heap->get_region(i);
259 if (i == idx && !chain_reg->is_humongous_start()) {
260 print_failure(_safe_unknown, obj, interior_loc, NULL, "Shenandoah assert_in_correct_region failed",
261 "Object must reside in humongous start",
262 file, line);
263 }
264 if (i != idx && !chain_reg->is_humongous_continuation()) {
265 print_failure(_safe_oop, obj, interior_loc, NULL, "Shenandoah assert_in_correct_region failed",
266 "Humongous continuation should be of proper size",
267 file, line);
268 }
269 }
270 }
271 }
272
273 void ShenandoahAsserts::assert_forwarded(void* interior_loc, oop obj, const char* file, int line) {
274 assert_correct(interior_loc, obj, file, line);
275 oop fwd = oop(ShenandoahForwarding::get_forwardee_raw_unchecked(obj));
276
277 if (oopDesc::equals_raw(obj, fwd)) {
278 print_failure(_safe_all, obj, interior_loc, NULL, "Shenandoah assert_forwarded failed",
279 "Object should be forwarded",
280 file, line);
281 }
282 }
283
284 void ShenandoahAsserts::assert_not_forwarded(void* interior_loc, oop obj, const char* file, int line) {
285 assert_correct(interior_loc, obj, file, line);
286 oop fwd = oop(ShenandoahForwarding::get_forwardee_raw_unchecked(obj));
287
288 if (!oopDesc::equals_raw(obj, fwd)) {
289 print_failure(_safe_all, obj, interior_loc, NULL, "Shenandoah assert_not_forwarded failed",
290 "Object should not be forwarded",
291 file, line);
292 }
293 }
294
295 void ShenandoahAsserts::assert_marked(void *interior_loc, oop obj, const char *file, int line) {
296 assert_correct(interior_loc, obj, file, line);
297
298 ShenandoahHeap* heap = ShenandoahHeap::heap_no_check();
299 if (!heap->marking_context()->is_marked(obj)) {
300 print_failure(_safe_all, obj, interior_loc, NULL, "Shenandoah assert_marked failed",
301 "Object should be marked",
302 file, line);
303 }
304 }
305
306 void ShenandoahAsserts::assert_in_cset(void* interior_loc, oop obj, const char* file, int line) {
307 assert_correct(interior_loc, obj, file, line);
308
309 ShenandoahHeap* heap = ShenandoahHeap::heap_no_check();
310 if (!heap->in_collection_set(obj)) {
311 print_failure(_safe_all, obj, interior_loc, NULL, "Shenandoah assert_in_cset failed",
312 "Object should be in collection set",
313 file, line);
314 }
315 }
316
317 void ShenandoahAsserts::assert_not_in_cset(void* interior_loc, oop obj, const char* file, int line) {
318 assert_correct(interior_loc, obj, file, line);
319
320 ShenandoahHeap* heap = ShenandoahHeap::heap_no_check();
321 if (heap->in_collection_set(obj)) {
322 print_failure(_safe_all, obj, interior_loc, NULL, "Shenandoah assert_not_in_cset failed",
323 "Object should not be in collection set",
324 file, line);
325 }
326 }
327
328 void ShenandoahAsserts::assert_not_in_cset_loc(void* interior_loc, const char* file, int line) {
329 ShenandoahHeap* heap = ShenandoahHeap::heap_no_check();
330 if (heap->in_collection_set(interior_loc)) {
331 print_failure(_safe_unknown, NULL, interior_loc, NULL, "Shenandoah assert_not_in_cset_loc failed",
332 "Interior location should not be in collection set",
333 file, line);
334 }
335 }
336
337 void ShenandoahAsserts::print_rp_failure(const char *label, BoolObjectClosure* actual,
338 const char *file, int line) {
339 ShenandoahMessageBuffer msg("%s\n", label);
340 msg.append(" Actual: " PTR_FORMAT "\n", p2i(actual));
341 report_vm_error(file, line, msg.buffer());
342 }
343
344 void ShenandoahAsserts::assert_rp_isalive_not_installed(const char *file, int line) {
345 ShenandoahHeap* heap = ShenandoahHeap::heap();
346 ReferenceProcessor* rp = heap->ref_processor();
347 if (rp->is_alive_non_header() != NULL) {
348 print_rp_failure("Shenandoah assert_rp_isalive_not_installed failed", rp->is_alive_non_header(),
349 file, line);
350 }
351 }
352
353 void ShenandoahAsserts::assert_rp_isalive_installed(const char *file, int line) {
354 ShenandoahHeap* heap = ShenandoahHeap::heap();
355 ReferenceProcessor* rp = heap->ref_processor();
356 if (rp->is_alive_non_header() == NULL) {
357 print_rp_failure("Shenandoah assert_rp_isalive_installed failed", rp->is_alive_non_header(),
358 file, line);
359 }
360 }