Mercurial > hg > truffle
view src/share/vm/libadt/set.cpp @ 1994:6cd6d394f280
7001033: assert(gch->gc_cause() == GCCause::_scavenge_alot || !gch->incremental_collection_failed())
7002546: regression on SpecJbb2005 on 7b118 comparing to 7b117 on small heaps
Summary: Relaxed assertion checking related to incremental_collection_failed flag to allow for ExplicitGCInvokesConcurrent behaviour where we do not want a failing scavenge to bail to a stop-world collection. Parameterized incremental_collection_will_fail() so we can selectively use, or not use, as appropriate, the statistical prediction at specific use sites. This essentially reverts the scavenge bail-out logic to what it was prior to some recent changes that had inadvertently started using the statistical prediction which can be noisy in the presence of bursty loads. Added some associated verbose non-product debugging messages.
Reviewed-by: johnc, tonyp
author | ysr |
---|---|
date | Tue, 07 Dec 2010 21:55:53 -0800 |
parents | f95d63e2154a |
children | d2a62e0f25eb |
line wrap: on
line source
/* * Copyright (c) 1997, 2010, Oracle and/or its affiliates. All rights reserved. * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. * * This code is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 2 only, as * published by the Free Software Foundation. * * This code is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * version 2 for more details (a copy is included in the LICENSE file that * accompanied this code). * * You should have received a copy of the GNU General Public License version * 2 along with this work; if not, write to the Free Software Foundation, * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA. * * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA * or visit www.oracle.com if you need additional information or have any * questions. * */ #include "precompiled.hpp" #include "libadt/set.hpp" #include "memory/allocation.inline.hpp" // Sets - An Abstract Data Type // %%%%% includes not needed with AVM framework - Ungar // #include "port.hpp" //IMPLEMENTATION // #include "set.hpp" #include <stdio.h> #include <assert.h> #include <string.h> #include <stdlib.h> // Not needed and it causes terouble for gcc. // // #include <iostream.h> //-------------------------Virtual Functions----------------------------------- // These functions MUST be implemented by the inheriting class. class SparseSet; /* Removed for MCC BUG Set::operator const SparseSet*() const { assert(0); return NULL; } */ const SparseSet *Set::asSparseSet() const { assert(0); return NULL; } class VectorSet; /* Removed for MCC BUG Set::operator const VectorSet*() const { assert(0); return NULL; } */ const VectorSet *Set::asVectorSet() const { assert(0); return NULL; } class ListSet; /* Removed for MCC BUG Set::operator const ListSet*() const { assert(0); return NULL; } */ const ListSet *Set::asListSet() const { assert(0); return NULL; } class CoSet; /* Removed for MCC BUG Set::operator const CoSet*() const { assert(0); return NULL; } */ const CoSet *Set::asCoSet() const { assert(0); return NULL; } //------------------------------setstr----------------------------------------- // Create a string with a printable representation of a set. // The caller must deallocate the string. char *Set::setstr() const { if( !this ) return os::strdup("{no set}"); Set &set = clone(); // Virtually copy the basic set. set.Sort(); // Sort elements for in-order retrieval uint len = 128; // Total string space char *buf = NEW_C_HEAP_ARRAY(char,len);// Some initial string space register char *s = buf; // Current working string pointer *s++ = '{'; *s = '\0'; // For all elements of the Set uint hi = (uint)-2, lo = (uint)-2; for( SetI i(&set); i.test(); ++i ) { if( hi+1 == i.elem ) { // Moving sequentially thru range? hi = i.elem; // Yes, just update hi end of range } else { // Else range ended if( buf+len-s < 25 ) { // Generous trailing space for upcoming numbers int offset = (int)(s-buf);// Not enuf space; compute offset into buffer len <<= 1; // Double string size buf = REALLOC_C_HEAP_ARRAY(char,buf,len); // Reallocate doubled size s = buf+offset; // Get working pointer into new bigger buffer } if( lo != (uint)-2 ) { // Startup? No! Then print previous range. if( lo != hi ) sprintf(s,"%d-%d,",lo,hi); else sprintf(s,"%d,",lo); s += strlen(s); // Advance working string } hi = lo = i.elem; } } if( lo != (uint)-2 ) { if( buf+len-s < 25 ) { // Generous trailing space for upcoming numbers int offset = (int)(s-buf);// Not enuf space; compute offset into buffer len <<= 1; // Double string size buf = (char*)ReallocateHeap(buf,len); // Reallocate doubled size s = buf+offset; // Get working pointer into new bigger buffer } if( lo != hi ) sprintf(s,"%d-%d}",lo,hi); else sprintf(s,"%d}",lo); } else strcat(s,"}"); // Don't delete the clone 'set' since it is allocated on Arena. return buf; } //------------------------------print------------------------------------------ // Handier print routine void Set::print() const { char *printable_set = setstr(); tty->print_cr(printable_set); FreeHeap(printable_set); } //------------------------------parse------------------------------------------ // Convert a textual representation of a Set, to a Set and union into "this" // Set. Return the amount of text parsed in "len", or zero in "len". int Set::parse(const char *s) { register char c; // Parse character register const char *t = s; // Save the starting position of s. do c = *s++; // Skip characters while( c && (c <= ' ') ); // Till no more whitespace or EOS if( c != '{' ) return 0; // Oops, not a Set openner if( *s == '}' ) return 2; // The empty Set // Sets are filled with values of the form "xx," or "xx-yy," with the comma // a "}" at the very end. while( 1 ) { // While have elements in the Set char *u; // Pointer to character ending parse uint hi, i; // Needed for range handling below uint elem = (uint)strtoul(s,&u,10);// Get element if( u == s ) return 0; // Bogus crude s = u; // Skip over the number c = *s++; // Get the number seperator switch ( c ) { // Different seperators case '}': // Last simple element case ',': // Simple element (*this) <<= elem; // Insert the simple element into the Set break; // Go get next element case '-': // Range hi = (uint)strtoul(s,&u,10); // Get element if( u == s ) return 0; // Bogus crude for( i=elem; i<=hi; i++ ) (*this) <<= i; // Insert the entire range into the Set s = u; // Skip over the number c = *s++; // Get the number seperator break; } if( c == '}' ) break; // End of the Set if( c != ',' ) return 0; // Bogus garbage } return (int)(s-t); // Return length parsed } //------------------------------Iterator--------------------------------------- SetI_::~SetI_() { }