1 /*
2 * Copyright (c) 1997, 2002, 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 "incls/_precompiled.incl"
26 # include "incls/_aprofiler.cpp.incl"
27
28
29 bool AllocationProfiler::_active = false;
30 GrowableArray<klassOop>* AllocationProfiler::_print_array = NULL;
31
32
33 class AllocProfClosure : public ObjectClosure {
34 public:
35 void do_object(oop obj) {
36 Klass* k = obj->blueprint();
37 k->set_alloc_count(k->alloc_count() + 1);
38 k->set_alloc_size(k->alloc_size() + obj->size());
39 }
40 };
41
42
43 #ifndef PRODUCT
44
45 class AllocProfResetClosure : public ObjectClosure {
46 public:
47 void do_object(oop obj) {
48 if (obj->is_klass()) {
49 Klass* k = Klass::cast(klassOop(obj));
50 k->set_alloc_count(0);
51 k->set_alloc_size(0);
52 }
53 }
54 };
55
56 #endif
57
58
59 void AllocationProfiler::iterate_since_last_gc() {
60 if (is_active()) {
61 AllocProfClosure blk;
62 GenCollectedHeap* heap = GenCollectedHeap::heap();
63 heap->object_iterate_since_last_GC(&blk);
64 }
65 }
66
67
68 void AllocationProfiler::engage() {
69 _active = true;
70 }
71
72
73 void AllocationProfiler::disengage() {
74 _active = false;
75 }
76
77
78 void AllocationProfiler::add_class_to_array(klassOop k) {
79 _print_array->append(k);
80 }
81
82
83 void AllocationProfiler::add_classes_to_array(klassOop k) {
84 // Iterate over klass and all array klasses for klass
85 k->klass_part()->with_array_klasses_do(&AllocationProfiler::add_class_to_array);
86 }
87
88
89 int AllocationProfiler::compare_classes(klassOop* k1, klassOop* k2) {
90 // Sort by total allocation size
91 return (*k2)->klass_part()->alloc_size() - (*k1)->klass_part()->alloc_size();
92 }
93
94
95 int AllocationProfiler::average(size_t alloc_size, int alloc_count) {
96 return (int) ((double) (alloc_size * BytesPerWord) / MAX2(alloc_count, 1) + 0.5);
97 }
98
99
100 void AllocationProfiler::sort_and_print_array(size_t cutoff) {
101 _print_array->sort(&AllocationProfiler::compare_classes);
102 tty->print_cr("________________Size"
103 "__Instances"
104 "__Average"
105 "__Class________________");
106 size_t total_alloc_size = 0;
107 int total_alloc_count = 0;
108 for (int index = 0; index < _print_array->length(); index++) {
109 klassOop k = _print_array->at(index);
110 size_t alloc_size = k->klass_part()->alloc_size();
111 if (alloc_size > cutoff) {
112 int alloc_count = k->klass_part()->alloc_count();
113 #ifdef PRODUCT
114 const char* name = k->klass_part()->external_name();
115 #else
116 const char* name = k->klass_part()->internal_name();
117 #endif
118 tty->print_cr("%20u %10u %8u %s",
119 alloc_size * BytesPerWord,
120 alloc_count,
121 average(alloc_size, alloc_count),
122 name);
123 total_alloc_size += alloc_size;
124 total_alloc_count += alloc_count;
125 }
126 }
127 tty->print_cr("%20u %10u %8u --total--",
128 total_alloc_size * BytesPerWord,
129 total_alloc_count,
130 average(total_alloc_size, total_alloc_count));
131 tty->cr();
132 }
133
134
135 void AllocationProfiler::print(size_t cutoff) {
136 ResourceMark rm;
137 assert(!is_active(), "AllocationProfiler cannot be active while printing profile");
138
139 tty->cr();
140 tty->print_cr("Allocation profile (sizes in bytes, cutoff = %ld bytes):", cutoff * BytesPerWord);
141 tty->cr();
142
143 // Print regular instance klasses and basic type array klasses
144 _print_array = new GrowableArray<klassOop>(SystemDictionary::number_of_classes()*2);
145 SystemDictionary::classes_do(&add_classes_to_array);
146 Universe::basic_type_classes_do(&add_classes_to_array);
147 sort_and_print_array(cutoff);
148
149 #ifndef PRODUCT
150 tty->print_cr("Allocation profile for system classes (sizes in bytes, cutoff = %d bytes):", cutoff * BytesPerWord);
151 tty->cr();
152
153 // Print system klasses (methods, symbols, constant pools, etc.)
154 _print_array = new GrowableArray<klassOop>(64);
155 Universe::system_classes_do(&add_classes_to_array);
156 sort_and_print_array(cutoff);
157
158 tty->print_cr("Permanent generation dump (sizes in bytes, cutoff = %d bytes):", cutoff * BytesPerWord);
159 tty->cr();
160
161 AllocProfResetClosure resetblk;
162 Universe::heap()->permanent_object_iterate(&resetblk);
163 AllocProfClosure blk;
164 Universe::heap()->permanent_object_iterate(&blk);
165
166 _print_array = new GrowableArray<klassOop>(SystemDictionary::number_of_classes()*2);
167 SystemDictionary::classes_do(&add_classes_to_array);
168 Universe::basic_type_classes_do(&add_classes_to_array);
169 Universe::system_classes_do(&add_classes_to_array);
170 sort_and_print_array(cutoff);
171 #endif
172 }