Mercurial > hg > graal-compiler
annotate src/share/vm/runtime/aprofiler.cpp @ 4712:e7dead7e90af
7117303: VM uses non-monotonic time source and complains that it is non-monotonic
Summary: Replaces calls to os::javaTimeMillis(), which does not (and cannot) guarantee monotonicity, in GC code to an equivalent expression that uses os::javaTimeNanos(). os::javaTimeNanos is guaranteed monotonically non-decreasing if the underlying platform provides a monotonic time source. Changes in OS files are to make use of the newly defined constants in globalDefinitions.hpp.
Reviewed-by: dholmes, ysr
author | johnc |
---|---|
date | Mon, 19 Dec 2011 10:02:05 -0800 |
parents | f95d63e2154a |
children | da91efe96a93 |
rev | line source |
---|---|
0 | 1 /* |
1972 | 2 * Copyright (c) 1997, 2010, Oracle and/or its affiliates. All rights reserved. |
0 | 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 * | |
1552
c18cbe5936b8
6941466: Oracle rebranding changes for Hotspot repositories
trims
parents:
0
diff
changeset
|
19 * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA |
c18cbe5936b8
6941466: Oracle rebranding changes for Hotspot repositories
trims
parents:
0
diff
changeset
|
20 * or visit www.oracle.com if you need additional information or have any |
c18cbe5936b8
6941466: Oracle rebranding changes for Hotspot repositories
trims
parents:
0
diff
changeset
|
21 * questions. |
0 | 22 * |
23 */ | |
24 | |
1972 | 25 #include "precompiled.hpp" |
26 #include "classfile/systemDictionary.hpp" | |
27 #include "gc_interface/collectedHeap.inline.hpp" | |
28 #include "memory/permGen.hpp" | |
29 #include "memory/resourceArea.hpp" | |
30 #include "memory/space.hpp" | |
31 #include "oops/oop.inline.hpp" | |
32 #include "oops/oop.inline2.hpp" | |
33 #include "runtime/aprofiler.hpp" | |
0 | 34 |
35 | |
36 bool AllocationProfiler::_active = false; | |
37 GrowableArray<klassOop>* AllocationProfiler::_print_array = NULL; | |
38 | |
39 | |
40 class AllocProfClosure : public ObjectClosure { | |
41 public: | |
42 void do_object(oop obj) { | |
43 Klass* k = obj->blueprint(); | |
44 k->set_alloc_count(k->alloc_count() + 1); | |
45 k->set_alloc_size(k->alloc_size() + obj->size()); | |
46 } | |
47 }; | |
48 | |
49 | |
50 #ifndef PRODUCT | |
51 | |
52 class AllocProfResetClosure : public ObjectClosure { | |
53 public: | |
54 void do_object(oop obj) { | |
55 if (obj->is_klass()) { | |
56 Klass* k = Klass::cast(klassOop(obj)); | |
57 k->set_alloc_count(0); | |
58 k->set_alloc_size(0); | |
59 } | |
60 } | |
61 }; | |
62 | |
63 #endif | |
64 | |
65 | |
66 void AllocationProfiler::iterate_since_last_gc() { | |
67 if (is_active()) { | |
68 AllocProfClosure blk; | |
69 GenCollectedHeap* heap = GenCollectedHeap::heap(); | |
70 heap->object_iterate_since_last_GC(&blk); | |
71 } | |
72 } | |
73 | |
74 | |
75 void AllocationProfiler::engage() { | |
76 _active = true; | |
77 } | |
78 | |
79 | |
80 void AllocationProfiler::disengage() { | |
81 _active = false; | |
82 } | |
83 | |
84 | |
85 void AllocationProfiler::add_class_to_array(klassOop k) { | |
86 _print_array->append(k); | |
87 } | |
88 | |
89 | |
90 void AllocationProfiler::add_classes_to_array(klassOop k) { | |
91 // Iterate over klass and all array klasses for klass | |
92 k->klass_part()->with_array_klasses_do(&AllocationProfiler::add_class_to_array); | |
93 } | |
94 | |
95 | |
96 int AllocationProfiler::compare_classes(klassOop* k1, klassOop* k2) { | |
97 // Sort by total allocation size | |
98 return (*k2)->klass_part()->alloc_size() - (*k1)->klass_part()->alloc_size(); | |
99 } | |
100 | |
101 | |
102 int AllocationProfiler::average(size_t alloc_size, int alloc_count) { | |
103 return (int) ((double) (alloc_size * BytesPerWord) / MAX2(alloc_count, 1) + 0.5); | |
104 } | |
105 | |
106 | |
107 void AllocationProfiler::sort_and_print_array(size_t cutoff) { | |
108 _print_array->sort(&AllocationProfiler::compare_classes); | |
109 tty->print_cr("________________Size" | |
110 "__Instances" | |
111 "__Average" | |
112 "__Class________________"); | |
113 size_t total_alloc_size = 0; | |
114 int total_alloc_count = 0; | |
115 for (int index = 0; index < _print_array->length(); index++) { | |
116 klassOop k = _print_array->at(index); | |
117 size_t alloc_size = k->klass_part()->alloc_size(); | |
118 if (alloc_size > cutoff) { | |
119 int alloc_count = k->klass_part()->alloc_count(); | |
120 #ifdef PRODUCT | |
121 const char* name = k->klass_part()->external_name(); | |
122 #else | |
123 const char* name = k->klass_part()->internal_name(); | |
124 #endif | |
125 tty->print_cr("%20u %10u %8u %s", | |
126 alloc_size * BytesPerWord, | |
127 alloc_count, | |
128 average(alloc_size, alloc_count), | |
129 name); | |
130 total_alloc_size += alloc_size; | |
131 total_alloc_count += alloc_count; | |
132 } | |
133 } | |
134 tty->print_cr("%20u %10u %8u --total--", | |
135 total_alloc_size * BytesPerWord, | |
136 total_alloc_count, | |
137 average(total_alloc_size, total_alloc_count)); | |
138 tty->cr(); | |
139 } | |
140 | |
141 | |
142 void AllocationProfiler::print(size_t cutoff) { | |
143 ResourceMark rm; | |
144 assert(!is_active(), "AllocationProfiler cannot be active while printing profile"); | |
145 | |
146 tty->cr(); | |
147 tty->print_cr("Allocation profile (sizes in bytes, cutoff = %ld bytes):", cutoff * BytesPerWord); | |
148 tty->cr(); | |
149 | |
150 // Print regular instance klasses and basic type array klasses | |
151 _print_array = new GrowableArray<klassOop>(SystemDictionary::number_of_classes()*2); | |
152 SystemDictionary::classes_do(&add_classes_to_array); | |
153 Universe::basic_type_classes_do(&add_classes_to_array); | |
154 sort_and_print_array(cutoff); | |
155 | |
156 #ifndef PRODUCT | |
157 tty->print_cr("Allocation profile for system classes (sizes in bytes, cutoff = %d bytes):", cutoff * BytesPerWord); | |
158 tty->cr(); | |
159 | |
160 // Print system klasses (methods, symbols, constant pools, etc.) | |
161 _print_array = new GrowableArray<klassOop>(64); | |
162 Universe::system_classes_do(&add_classes_to_array); | |
163 sort_and_print_array(cutoff); | |
164 | |
165 tty->print_cr("Permanent generation dump (sizes in bytes, cutoff = %d bytes):", cutoff * BytesPerWord); | |
166 tty->cr(); | |
167 | |
168 AllocProfResetClosure resetblk; | |
169 Universe::heap()->permanent_object_iterate(&resetblk); | |
170 AllocProfClosure blk; | |
171 Universe::heap()->permanent_object_iterate(&blk); | |
172 | |
173 _print_array = new GrowableArray<klassOop>(SystemDictionary::number_of_classes()*2); | |
174 SystemDictionary::classes_do(&add_classes_to_array); | |
175 Universe::basic_type_classes_do(&add_classes_to_array); | |
176 Universe::system_classes_do(&add_classes_to_array); | |
177 sort_and_print_array(cutoff); | |
178 #endif | |
179 } |