Mon, 18 Mar 2013 13:19:06 +0100
8008555: Debugging code in compiled method sometimes leaks memory
Summary: support for strings that have same life-time as code that uses them.
Reviewed-by: kvn, twisti
1 /*
2 * Copyright (c) 1997, 2013, 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 */
25 #include "precompiled.hpp"
26 #include "classfile/systemDictionary.hpp"
27 #include "gc_interface/collectedHeap.inline.hpp"
28 #include "memory/resourceArea.hpp"
29 #include "memory/space.hpp"
30 #include "oops/oop.inline.hpp"
31 #include "oops/oop.inline2.hpp"
32 #include "runtime/aprofiler.hpp"
35 bool AllocationProfiler::_active = false;
36 GrowableArray<Klass*>* AllocationProfiler::_print_array = NULL;
39 class AllocProfClosure : public ObjectClosure {
40 public:
41 void do_object(oop obj) {
42 Klass* k = obj->klass();
43 k->set_alloc_count(k->alloc_count() + 1);
44 k->set_alloc_size(k->alloc_size() + obj->size());
45 }
46 };
49 void AllocationProfiler::iterate_since_last_gc() {
50 if (is_active()) {
51 AllocProfClosure blk;
52 GenCollectedHeap* heap = GenCollectedHeap::heap();
53 heap->object_iterate_since_last_GC(&blk);
54 }
55 }
58 void AllocationProfiler::engage() {
59 _active = true;
60 }
63 void AllocationProfiler::disengage() {
64 _active = false;
65 }
68 void AllocationProfiler::add_class_to_array(Klass* k) {
69 _print_array->append(k);
70 }
73 void AllocationProfiler::add_classes_to_array(Klass* k) {
74 // Iterate over klass and all array klasses for klass
75 k->with_array_klasses_do(&AllocationProfiler::add_class_to_array);
76 }
79 int AllocationProfiler::compare_classes(Klass** k1, Klass** k2) {
80 // Sort by total allocation size
81 return (*k2)->alloc_size() - (*k1)->alloc_size();
82 }
85 int AllocationProfiler::average(size_t alloc_size, int alloc_count) {
86 return (int) ((double) (alloc_size * BytesPerWord) / MAX2(alloc_count, 1) + 0.5);
87 }
90 void AllocationProfiler::sort_and_print_array(size_t cutoff) {
91 _print_array->sort(&AllocationProfiler::compare_classes);
92 tty->print_cr("________________Size"
93 "__Instances"
94 "__Average"
95 "__Class________________");
96 size_t total_alloc_size = 0;
97 int total_alloc_count = 0;
98 for (int index = 0; index < _print_array->length(); index++) {
99 Klass* k = _print_array->at(index);
100 size_t alloc_size = k->alloc_size();
101 if (alloc_size > cutoff) {
102 int alloc_count = k->alloc_count();
103 #ifdef PRODUCT
104 const char* name = k->external_name();
105 #else
106 const char* name = k->internal_name();
107 #endif
108 tty->print_cr("%20u %10u %8u %s",
109 alloc_size * BytesPerWord,
110 alloc_count,
111 average(alloc_size, alloc_count),
112 name);
113 total_alloc_size += alloc_size;
114 total_alloc_count += alloc_count;
115 }
116 k->set_alloc_count(0);
117 k->set_alloc_size(0);
118 }
119 tty->print_cr("%20u %10u %8u --total--",
120 total_alloc_size * BytesPerWord,
121 total_alloc_count,
122 average(total_alloc_size, total_alloc_count));
123 tty->cr();
124 }
127 void AllocationProfiler::print(size_t cutoff) {
128 ResourceMark rm;
129 assert(!is_active(), "AllocationProfiler cannot be active while printing profile");
131 tty->cr();
132 tty->print_cr("Allocation profile (sizes in bytes, cutoff = " SIZE_FORMAT " bytes):", cutoff * BytesPerWord);
133 tty->cr();
135 // Print regular instance klasses and basic type array klasses
136 _print_array = new GrowableArray<Klass*>(SystemDictionary::number_of_classes()*2);
137 SystemDictionary::classes_do(&add_classes_to_array);
138 Universe::basic_type_classes_do(&add_classes_to_array);
139 sort_and_print_array(cutoff);
141 // This used to print metadata in the permgen but since there isn't a permgen
142 // anymore, it is not yet implemented.
143 }