src/share/vm/memory/freeList.cpp

Fri, 01 Feb 2013 23:48:08 +0100

author
ctornqvi
date
Fri, 01 Feb 2013 23:48:08 +0100
changeset 4512
4102b59539ce
parent 4196
685df3c6f84b
child 4542
db9981fd3124
permissions
-rw-r--r--

8005012: Add WB APIs to better support NMT testing
Summary: Add WB API functions to enable better NMT testing
Reviewed-by: dholmes, zgu

duke@435 1 /*
mikael@4153 2 * Copyright (c) 2001, 2012, Oracle and/or its affiliates. All rights reserved.
duke@435 3 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
duke@435 4 *
duke@435 5 * This code is free software; you can redistribute it and/or modify it
duke@435 6 * under the terms of the GNU General Public License version 2 only, as
duke@435 7 * published by the Free Software Foundation.
duke@435 8 *
duke@435 9 * This code is distributed in the hope that it will be useful, but WITHOUT
duke@435 10 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
duke@435 11 * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
duke@435 12 * version 2 for more details (a copy is included in the LICENSE file that
duke@435 13 * accompanied this code).
duke@435 14 *
duke@435 15 * You should have received a copy of the GNU General Public License version
duke@435 16 * 2 along with this work; if not, write to the Free Software Foundation,
duke@435 17 * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
duke@435 18 *
trims@1907 19 * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
trims@1907 20 * or visit www.oracle.com if you need additional information or have any
trims@1907 21 * questions.
duke@435 22 *
duke@435 23 */
duke@435 24
stefank@2314 25 #include "precompiled.hpp"
jmasa@3730 26 #include "memory/freeBlockDictionary.hpp"
jmasa@3730 27 #include "memory/freeList.hpp"
jmasa@4196 28 #include "memory/metablock.hpp"
jmasa@4196 29 #include "memory/metachunk.hpp"
stefank@2314 30 #include "memory/sharedHeap.hpp"
stefank@2314 31 #include "runtime/globals.hpp"
stefank@2314 32 #include "runtime/mutex.hpp"
stefank@2314 33 #include "runtime/vmThread.hpp"
duke@435 34
jmasa@3730 35 #ifndef SERIALGC
jmasa@3730 36 #include "gc_implementation/concurrentMarkSweep/freeChunk.hpp"
jmasa@3730 37 #endif // SERIALGC
jmasa@3730 38
duke@435 39 // Free list. A FreeList is used to access a linked list of chunks
duke@435 40 // of space in the heap. The head and tail are maintained so that
duke@435 41 // items can be (as in the current implementation) added at the
duke@435 42 // at the tail of the list and removed from the head of the list to
duke@435 43 // maintain a FIFO queue.
duke@435 44
jmasa@3730 45 template <class Chunk>
jmasa@3730 46 FreeList<Chunk>::FreeList() :
duke@435 47 _head(NULL), _tail(NULL)
duke@435 48 #ifdef ASSERT
duke@435 49 , _protecting_lock(NULL)
duke@435 50 #endif
duke@435 51 {
duke@435 52 _size = 0;
duke@435 53 _count = 0;
duke@435 54 }
duke@435 55
jmasa@3730 56 template <class Chunk>
jmasa@3730 57 FreeList<Chunk>::FreeList(Chunk* fc) :
duke@435 58 _head(fc), _tail(fc)
duke@435 59 #ifdef ASSERT
duke@435 60 , _protecting_lock(NULL)
duke@435 61 #endif
duke@435 62 {
duke@435 63 _size = fc->size();
duke@435 64 _count = 1;
duke@435 65 }
duke@435 66
jmasa@3730 67 template <class Chunk>
jmasa@4196 68 void FreeList<Chunk>::link_head(Chunk* v) {
jmasa@4196 69 assert_proper_lock_protection();
jmasa@4196 70 set_head(v);
jmasa@4196 71 // If this method is not used (just set the head instead),
jmasa@4196 72 // this check can be avoided.
jmasa@4196 73 if (v != NULL) {
jmasa@4196 74 v->link_prev(NULL);
jmasa@4196 75 }
jmasa@4196 76 }
jmasa@4196 77
jmasa@4196 78
jmasa@4196 79
jmasa@4196 80 template <class Chunk>
jmasa@4196 81 void FreeList<Chunk>::reset() {
jmasa@4196 82 // Don't set the _size to 0 because this method is
jmasa@4196 83 // used with a existing list that has a size but which has
jmasa@4196 84 // been emptied.
jmasa@4196 85 // Don't clear the _protecting_lock of an existing list.
duke@435 86 set_count(0);
duke@435 87 set_head(NULL);
duke@435 88 set_tail(NULL);
duke@435 89 }
duke@435 90
jmasa@3730 91 template <class Chunk>
jmasa@4196 92 void FreeList<Chunk>::initialize() {
jmasa@4196 93 #ifdef ASSERT
jmasa@4196 94 // Needed early because it might be checked in other initializing code.
jmasa@4196 95 set_protecting_lock(NULL);
jmasa@4196 96 #endif
jmasa@4196 97 reset();
jmasa@4196 98 set_size(0);
duke@435 99 }
duke@435 100
jmasa@4196 101 template <class Chunk_t>
jmasa@4196 102 Chunk_t* FreeList<Chunk_t>::get_chunk_at_head() {
duke@435 103 assert_proper_lock_protection();
duke@435 104 assert(head() == NULL || head()->prev() == NULL, "list invariant");
duke@435 105 assert(tail() == NULL || tail()->next() == NULL, "list invariant");
jmasa@4196 106 Chunk_t* fc = head();
duke@435 107 if (fc != NULL) {
jmasa@4196 108 Chunk_t* nextFC = fc->next();
duke@435 109 if (nextFC != NULL) {
duke@435 110 // The chunk fc being removed has a "next". Set the "next" to the
duke@435 111 // "prev" of fc.
jmasa@3732 112 nextFC->link_prev(NULL);
duke@435 113 } else { // removed tail of list
duke@435 114 link_tail(NULL);
duke@435 115 }
duke@435 116 link_head(nextFC);
duke@435 117 decrement_count();
duke@435 118 }
duke@435 119 assert(head() == NULL || head()->prev() == NULL, "list invariant");
duke@435 120 assert(tail() == NULL || tail()->next() == NULL, "list invariant");
duke@435 121 return fc;
duke@435 122 }
duke@435 123
duke@435 124
jmasa@3730 125 template <class Chunk>
jmasa@3730 126 void FreeList<Chunk>::getFirstNChunksFromList(size_t n, FreeList<Chunk>* fl) {
duke@435 127 assert_proper_lock_protection();
duke@435 128 assert(fl->count() == 0, "Precondition");
duke@435 129 if (count() > 0) {
duke@435 130 int k = 1;
duke@435 131 fl->set_head(head()); n--;
jmasa@3730 132 Chunk* tl = head();
duke@435 133 while (tl->next() != NULL && n > 0) {
duke@435 134 tl = tl->next(); n--; k++;
duke@435 135 }
duke@435 136 assert(tl != NULL, "Loop Inv.");
duke@435 137
duke@435 138 // First, fix up the list we took from.
jmasa@3730 139 Chunk* new_head = tl->next();
duke@435 140 set_head(new_head);
duke@435 141 set_count(count() - k);
duke@435 142 if (new_head == NULL) {
duke@435 143 set_tail(NULL);
duke@435 144 } else {
jmasa@3732 145 new_head->link_prev(NULL);
duke@435 146 }
duke@435 147 // Now we can fix up the tail.
jmasa@3732 148 tl->link_next(NULL);
duke@435 149 // And return the result.
duke@435 150 fl->set_tail(tl);
duke@435 151 fl->set_count(k);
duke@435 152 }
duke@435 153 }
duke@435 154
duke@435 155 // Remove this chunk from the list
jmasa@3730 156 template <class Chunk>
jmasa@3732 157 void FreeList<Chunk>::remove_chunk(Chunk*fc) {
duke@435 158 assert_proper_lock_protection();
duke@435 159 assert(head() != NULL, "Remove from empty list");
duke@435 160 assert(fc != NULL, "Remove a NULL chunk");
duke@435 161 assert(size() == fc->size(), "Wrong list");
duke@435 162 assert(head() == NULL || head()->prev() == NULL, "list invariant");
duke@435 163 assert(tail() == NULL || tail()->next() == NULL, "list invariant");
duke@435 164
jmasa@3730 165 Chunk* prevFC = fc->prev();
jmasa@3730 166 Chunk* nextFC = fc->next();
duke@435 167 if (nextFC != NULL) {
duke@435 168 // The chunk fc being removed has a "next". Set the "next" to the
duke@435 169 // "prev" of fc.
jmasa@3732 170 nextFC->link_prev(prevFC);
duke@435 171 } else { // removed tail of list
duke@435 172 link_tail(prevFC);
duke@435 173 }
duke@435 174 if (prevFC == NULL) { // removed head of list
duke@435 175 link_head(nextFC);
duke@435 176 assert(nextFC == NULL || nextFC->prev() == NULL,
duke@435 177 "Prev of head should be NULL");
duke@435 178 } else {
jmasa@3732 179 prevFC->link_next(nextFC);
duke@435 180 assert(tail() != prevFC || prevFC->next() == NULL,
duke@435 181 "Next of tail should be NULL");
duke@435 182 }
duke@435 183 decrement_count();
ysr@2132 184 assert(((head() == NULL) + (tail() == NULL) + (count() == 0)) % 3 == 0,
ysr@2132 185 "H/T/C Inconsistency");
duke@435 186 // clear next and prev fields of fc, debug only
duke@435 187 NOT_PRODUCT(
jmasa@3732 188 fc->link_prev(NULL);
jmasa@3732 189 fc->link_next(NULL);
duke@435 190 )
jmasa@3732 191 assert(fc->is_free(), "Should still be a free chunk");
duke@435 192 assert(head() == NULL || head()->prev() == NULL, "list invariant");
duke@435 193 assert(tail() == NULL || tail()->next() == NULL, "list invariant");
duke@435 194 assert(head() == NULL || head()->size() == size(), "wrong item on list");
duke@435 195 assert(tail() == NULL || tail()->size() == size(), "wrong item on list");
duke@435 196 }
duke@435 197
duke@435 198 // Add this chunk at the head of the list.
jmasa@3730 199 template <class Chunk>
jmasa@3732 200 void FreeList<Chunk>::return_chunk_at_head(Chunk* chunk, bool record_return) {
duke@435 201 assert_proper_lock_protection();
duke@435 202 assert(chunk != NULL, "insert a NULL chunk");
duke@435 203 assert(size() == chunk->size(), "Wrong size");
duke@435 204 assert(head() == NULL || head()->prev() == NULL, "list invariant");
duke@435 205 assert(tail() == NULL || tail()->next() == NULL, "list invariant");
duke@435 206
jmasa@3730 207 Chunk* oldHead = head();
duke@435 208 assert(chunk != oldHead, "double insertion");
jmasa@3732 209 chunk->link_after(oldHead);
duke@435 210 link_head(chunk);
duke@435 211 if (oldHead == NULL) { // only chunk in list
duke@435 212 assert(tail() == NULL, "inconsistent FreeList");
duke@435 213 link_tail(chunk);
duke@435 214 }
duke@435 215 increment_count(); // of # of chunks in list
duke@435 216 assert(head() == NULL || head()->prev() == NULL, "list invariant");
duke@435 217 assert(tail() == NULL || tail()->next() == NULL, "list invariant");
duke@435 218 assert(head() == NULL || head()->size() == size(), "wrong item on list");
duke@435 219 assert(tail() == NULL || tail()->size() == size(), "wrong item on list");
duke@435 220 }
duke@435 221
jmasa@3730 222 template <class Chunk>
jmasa@3732 223 void FreeList<Chunk>::return_chunk_at_head(Chunk* chunk) {
duke@435 224 assert_proper_lock_protection();
jmasa@3732 225 return_chunk_at_head(chunk, true);
duke@435 226 }
duke@435 227
duke@435 228 // Add this chunk at the tail of the list.
jmasa@3730 229 template <class Chunk>
jmasa@3732 230 void FreeList<Chunk>::return_chunk_at_tail(Chunk* chunk, bool record_return) {
duke@435 231 assert_proper_lock_protection();
duke@435 232 assert(head() == NULL || head()->prev() == NULL, "list invariant");
duke@435 233 assert(tail() == NULL || tail()->next() == NULL, "list invariant");
duke@435 234 assert(chunk != NULL, "insert a NULL chunk");
duke@435 235 assert(size() == chunk->size(), "wrong size");
duke@435 236
jmasa@3730 237 Chunk* oldTail = tail();
duke@435 238 assert(chunk != oldTail, "double insertion");
duke@435 239 if (oldTail != NULL) {
jmasa@3732 240 oldTail->link_after(chunk);
duke@435 241 } else { // only chunk in list
duke@435 242 assert(head() == NULL, "inconsistent FreeList");
duke@435 243 link_head(chunk);
duke@435 244 }
duke@435 245 link_tail(chunk);
duke@435 246 increment_count(); // of # of chunks in list
duke@435 247 assert(head() == NULL || head()->prev() == NULL, "list invariant");
duke@435 248 assert(tail() == NULL || tail()->next() == NULL, "list invariant");
duke@435 249 assert(head() == NULL || head()->size() == size(), "wrong item on list");
duke@435 250 assert(tail() == NULL || tail()->size() == size(), "wrong item on list");
duke@435 251 }
duke@435 252
jmasa@3730 253 template <class Chunk>
jmasa@3732 254 void FreeList<Chunk>::return_chunk_at_tail(Chunk* chunk) {
jmasa@3732 255 return_chunk_at_tail(chunk, true);
duke@435 256 }
duke@435 257
jmasa@3730 258 template <class Chunk>
jmasa@3730 259 void FreeList<Chunk>::prepend(FreeList<Chunk>* fl) {
duke@435 260 assert_proper_lock_protection();
duke@435 261 if (fl->count() > 0) {
duke@435 262 if (count() == 0) {
duke@435 263 set_head(fl->head());
duke@435 264 set_tail(fl->tail());
duke@435 265 set_count(fl->count());
duke@435 266 } else {
duke@435 267 // Both are non-empty.
jmasa@3730 268 Chunk* fl_tail = fl->tail();
jmasa@3730 269 Chunk* this_head = head();
duke@435 270 assert(fl_tail->next() == NULL, "Well-formedness of fl");
jmasa@3732 271 fl_tail->link_next(this_head);
jmasa@3732 272 this_head->link_prev(fl_tail);
duke@435 273 set_head(fl->head());
duke@435 274 set_count(count() + fl->count());
duke@435 275 }
duke@435 276 fl->set_head(NULL);
duke@435 277 fl->set_tail(NULL);
duke@435 278 fl->set_count(0);
duke@435 279 }
duke@435 280 }
duke@435 281
jmasa@4196 282 // verify_chunk_in_free_lists() is used to verify that an item is in this free list.
duke@435 283 // It is used as a debugging aid.
jmasa@3730 284 template <class Chunk>
jmasa@3732 285 bool FreeList<Chunk>::verify_chunk_in_free_list(Chunk* fc) const {
duke@435 286 // This is an internal consistency check, not part of the check that the
duke@435 287 // chunk is in the free lists.
duke@435 288 guarantee(fc->size() == size(), "Wrong list is being searched");
jmasa@3730 289 Chunk* curFC = head();
duke@435 290 while (curFC) {
duke@435 291 // This is an internal consistency check.
duke@435 292 guarantee(size() == curFC->size(), "Chunk is in wrong list.");
duke@435 293 if (fc == curFC) {
duke@435 294 return true;
duke@435 295 }
duke@435 296 curFC = curFC->next();
duke@435 297 }
duke@435 298 return false;
duke@435 299 }
duke@435 300
duke@435 301 #ifndef PRODUCT
jmasa@3730 302 template <class Chunk>
jmasa@3730 303 void FreeList<Chunk>::assert_proper_lock_protection_work() const {
jmasa@4196 304 assert(protecting_lock() != NULL, "Don't call this directly");
ysr@1580 305 assert(ParallelGCThreads > 0, "Don't call this directly");
ysr@1580 306 Thread* thr = Thread::current();
ysr@1580 307 if (thr->is_VM_thread() || thr->is_ConcurrentGC_thread()) {
ysr@1580 308 // assert that we are holding the freelist lock
ysr@1580 309 } else if (thr->is_GC_task_thread()) {
jmasa@4196 310 assert(protecting_lock()->owned_by_self(), "FreeList RACE DETECTED");
ysr@1580 311 } else if (thr->is_Java_thread()) {
ysr@1580 312 assert(!SafepointSynchronize::is_at_safepoint(), "Should not be executing");
ysr@1580 313 } else {
ysr@1580 314 ShouldNotReachHere(); // unaccounted thread type?
duke@435 315 }
duke@435 316 }
duke@435 317 #endif
ysr@447 318
ysr@447 319 // Print the "label line" for free list stats.
jmasa@3730 320 template <class Chunk>
jmasa@3730 321 void FreeList<Chunk>::print_labels_on(outputStream* st, const char* c) {
ysr@447 322 st->print("%16s\t", c);
ysr@447 323 st->print("%14s\t" "%14s\t" "%14s\t" "%14s\t" "%14s\t"
ysr@447 324 "%14s\t" "%14s\t" "%14s\t" "%14s\t" "%14s\t" "\n",
ysr@447 325 "bfrsurp", "surplus", "desired", "prvSwep", "bfrSwep",
ysr@447 326 "count", "cBirths", "cDeaths", "sBirths", "sDeaths");
ysr@447 327 }
ysr@447 328
ysr@447 329 // Print the AllocationStats for the given free list. If the second argument
ysr@447 330 // to the call is a non-null string, it is printed in the first column;
ysr@447 331 // otherwise, if the argument is null (the default), then the size of the
ysr@447 332 // (free list) block is printed in the first column.
jmasa@4196 333 template <class Chunk_t>
jmasa@4196 334 void FreeList<Chunk_t>::print_on(outputStream* st, const char* c) const {
ysr@447 335 if (c != NULL) {
ysr@447 336 st->print("%16s", c);
ysr@447 337 } else {
ysr@447 338 st->print(SIZE_FORMAT_W(16), size());
ysr@447 339 }
ysr@447 340 }
jmasa@3730 341
jmasa@4196 342 template class FreeList<Metablock>;
jmasa@4196 343 template class FreeList<Metachunk>;
jmasa@3730 344 #ifndef SERIALGC
jmasa@3730 345 template class FreeList<FreeChunk>;
jmasa@3730 346 #endif // SERIALGC

mercurial