1 | /* |
2 | * Copyright (c) 2019, 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 | |
25 | #include "precompiled.hpp" |
26 | #include "gc/shared/collectedHeap.hpp" |
27 | #include "jfr/leakprofiler/leakProfiler.hpp" |
28 | #include "jfr/leakprofiler/chains/bfsClosure.hpp" |
29 | #include "jfr/leakprofiler/chains/bitset.hpp" |
30 | #include "jfr/leakprofiler/chains/dfsClosure.hpp" |
31 | #include "jfr/leakprofiler/chains/edge.hpp" |
32 | #include "jfr/leakprofiler/chains/edgeQueue.hpp" |
33 | #include "jfr/leakprofiler/chains/edgeStore.hpp" |
34 | #include "jfr/leakprofiler/chains/objectSampleMarker.hpp" |
35 | #include "jfr/leakprofiler/chains/rootSetClosure.hpp" |
36 | #include "jfr/leakprofiler/chains/edgeStore.hpp" |
37 | #include "jfr/leakprofiler/chains/objectSampleMarker.hpp" |
38 | #include "jfr/leakprofiler/chains/pathToGcRootsOperation.hpp" |
39 | #include "jfr/leakprofiler/checkpoint/eventEmitter.hpp" |
40 | #include "jfr/leakprofiler/checkpoint/objectSampleCheckpoint.hpp" |
41 | #include "jfr/leakprofiler/sampling/objectSample.hpp" |
42 | #include "jfr/leakprofiler/sampling/objectSampler.hpp" |
43 | #include "jfr/leakprofiler/utilities/granularTimer.hpp" |
44 | #include "logging/log.hpp" |
45 | #include "memory/universe.hpp" |
46 | #include "oops/markOop.hpp" |
47 | #include "oops/oop.inline.hpp" |
48 | #include "runtime/safepoint.hpp" |
49 | #include "utilities/globalDefinitions.hpp" |
50 | |
51 | PathToGcRootsOperation::PathToGcRootsOperation(ObjectSampler* sampler, EdgeStore* edge_store, int64_t cutoff, bool emit_all) : |
52 | _sampler(sampler),_edge_store(edge_store), _cutoff_ticks(cutoff), _emit_all(emit_all) {} |
53 | |
54 | /* The EdgeQueue is backed by directly managed virtual memory. |
55 | * We will attempt to dimension an initial reservation |
56 | * in proportion to the size of the heap (represented by heap_region). |
57 | * Initial memory reservation: 5% of the heap OR at least 32 Mb |
58 | * Commit ratio: 1 : 10 (subject to allocation granularties) |
59 | */ |
60 | static size_t edge_queue_memory_reservation(const MemRegion& heap_region) { |
61 | const size_t memory_reservation_bytes = MAX2(heap_region.byte_size() / 20, 32*M); |
62 | assert(memory_reservation_bytes >= (size_t)32*M, "invariant" ); |
63 | return memory_reservation_bytes; |
64 | } |
65 | |
66 | static size_t edge_queue_memory_commit_size(size_t memory_reservation_bytes) { |
67 | const size_t memory_commit_block_size_bytes = memory_reservation_bytes / 10; |
68 | assert(memory_commit_block_size_bytes >= (size_t)3*M, "invariant" ); |
69 | return memory_commit_block_size_bytes; |
70 | } |
71 | |
72 | static void log_edge_queue_summary(const EdgeQueue& edge_queue) { |
73 | log_trace(jfr, system)("EdgeQueue reserved size total: " SIZE_FORMAT " [KB]" , edge_queue.reserved_size() / K); |
74 | log_trace(jfr, system)("EdgeQueue edges total: " SIZE_FORMAT, edge_queue.top()); |
75 | log_trace(jfr, system)("EdgeQueue liveset total: " SIZE_FORMAT " [KB]" , edge_queue.live_set() / K); |
76 | if (edge_queue.reserved_size() > 0) { |
77 | log_trace(jfr, system)("EdgeQueue commit reserve ratio: %f\n" , |
78 | ((double)edge_queue.live_set() / (double)edge_queue.reserved_size())); |
79 | } |
80 | } |
81 | |
82 | void PathToGcRootsOperation::doit() { |
83 | assert(SafepointSynchronize::is_at_safepoint(), "invariant" ); |
84 | assert(_cutoff_ticks > 0, "invariant" ); |
85 | |
86 | // The bitset used for marking is dimensioned as a function of the heap size |
87 | const MemRegion heap_region = Universe::heap()->reserved_region(); |
88 | BitSet mark_bits(heap_region); |
89 | |
90 | // The edge queue is dimensioned as a fraction of the heap size |
91 | const size_t edge_queue_reservation_size = edge_queue_memory_reservation(heap_region); |
92 | EdgeQueue edge_queue(edge_queue_reservation_size, edge_queue_memory_commit_size(edge_queue_reservation_size)); |
93 | |
94 | // The initialize() routines will attempt to reserve and allocate backing storage memory. |
95 | // Failure to accommodate will render root chain processing impossible. |
96 | // As a fallback on failure, just write out the existing samples, flat, without chains. |
97 | if (!(mark_bits.initialize() && edge_queue.initialize())) { |
98 | log_warning(jfr)("Unable to allocate memory for root chain processing" ); |
99 | return; |
100 | } |
101 | |
102 | // Save the original markWord for the potential leak objects, |
103 | // to be restored on function exit |
104 | ObjectSampleMarker marker; |
105 | if (ObjectSampleCheckpoint::mark(_sampler, marker, _emit_all) == 0) { |
106 | // no valid samples to process |
107 | return; |
108 | } |
109 | |
110 | // Necessary condition for attempting a root set iteration |
111 | Universe::heap()->ensure_parsability(false); |
112 | |
113 | BFSClosure bfs(&edge_queue, _edge_store, &mark_bits); |
114 | RootSetClosure<BFSClosure> roots(&bfs); |
115 | |
116 | GranularTimer::start(_cutoff_ticks, 1000000); |
117 | roots.process(); |
118 | if (edge_queue.is_full()) { |
119 | // Pathological case where roots don't fit in queue |
120 | // Do a depth-first search, but mark roots first |
121 | // to avoid walking sideways over roots |
122 | DFSClosure::find_leaks_from_root_set(_edge_store, &mark_bits); |
123 | } else { |
124 | bfs.process(); |
125 | } |
126 | GranularTimer::stop(); |
127 | log_edge_queue_summary(edge_queue); |
128 | |
129 | // Emit old objects including their reference chains as events |
130 | EventEmitter emitter(GranularTimer::start_time(), GranularTimer::end_time()); |
131 | emitter.write_events(_sampler, _edge_store, _emit_all); |
132 | } |
133 | |