Mercurial > hg > truffle
annotate src/share/vm/runtime/aprofiler.cpp @ 1721:413ad0331a0c
6977924: Changes for 6975078 produce build error with certain gcc versions
Summary: The changes introduced for 6975078 assign badHeapOopVal to the _allocation field in the ResourceObj class. In 32 bit linux builds with certain versions of gcc this assignment will be flagged as an error while compiling allocation.cpp. In 32 bit builds the constant value badHeapOopVal (which is cast to an intptr_t) is negative. The _allocation field is typed as an unsigned intptr_t and gcc catches this as an error.
Reviewed-by: jcoomes, ysr, phh
| author | johnc |
|---|---|
| date | Wed, 18 Aug 2010 10:59:06 -0700 |
| parents | c18cbe5936b8 |
| children | f95d63e2154a |
| rev | line source |
|---|---|
| 0 | 1 /* |
|
1552
c18cbe5936b8
6941466: Oracle rebranding changes for Hotspot repositories
trims
parents:
0
diff
changeset
|
2 * Copyright (c) 1997, 2002, 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 | |
| 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 } |