Mercurial > hg > graal-jvmci-8
view src/share/vm/libadt/set.cpp @ 3979:4dfb2df418f2
6484982: G1: process references during evacuation pauses
Summary: G1 now uses two reference processors - one is used by concurrent marking and the other is used by STW GCs (both full and incremental evacuation pauses). In an evacuation pause, the reference processor is embedded into the closures used to scan objects. Doing so causes causes reference objects to be 'discovered' by the reference processor. At the end of the evacuation pause, these discovered reference objects are processed - preserving (and copying) referent objects (and their reachable graphs) as appropriate.
Reviewed-by: ysr, jwilhelm, brutisso, stefank, tonyp
author | johnc |
---|---|
date | Thu, 22 Sep 2011 10:57:37 -0700 |
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_() { }