aoqi@0: /*
aoqi@0:  * Copyright (c) 1999, 2013, Oracle and/or its affiliates. All rights reserved.
aoqi@0:  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
aoqi@0:  *
aoqi@0:  * This code is free software; you can redistribute it and/or modify it
aoqi@0:  * under the terms of the GNU General Public License version 2 only, as
aoqi@0:  * published by the Free Software Foundation.
aoqi@0:  *
aoqi@0:  * This code is distributed in the hope that it will be useful, but WITHOUT
aoqi@0:  * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
aoqi@0:  * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
aoqi@0:  * version 2 for more details (a copy is included in the LICENSE file that
aoqi@0:  * accompanied this code).
aoqi@0:  *
aoqi@0:  * You should have received a copy of the GNU General Public License version
aoqi@0:  * 2 along with this work; if not, write to the Free Software Foundation,
aoqi@0:  * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
aoqi@0:  *
aoqi@0:  * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
aoqi@0:  * or visit www.oracle.com if you need additional information or have any
aoqi@0:  * questions.
aoqi@0:  *
aoqi@0:  */
aoqi@0: 
aoqi@0: #include "precompiled.hpp"
aoqi@0: #include "ci/ciInstanceKlass.hpp"
aoqi@0: #include "ci/ciObjArrayKlass.hpp"
aoqi@0: #include "ci/ciSymbol.hpp"
aoqi@0: #include "ci/ciUtilities.hpp"
aoqi@0: #include "oops/objArrayKlass.hpp"
aoqi@0: 
aoqi@0: // ciObjArrayKlass
aoqi@0: //
aoqi@0: // This class represents a Klass* in the HotSpot virtual machine
aoqi@0: // whose Klass part is an ObjArrayKlass.
aoqi@0: 
aoqi@0: // ------------------------------------------------------------------
aoqi@0: // ciObjArrayKlass::ciObjArrayKlass
aoqi@0: //
aoqi@0: // Constructor for loaded object array klasses.
aoqi@0: ciObjArrayKlass::ciObjArrayKlass(KlassHandle h_k) : ciArrayKlass(h_k) {
aoqi@0:   assert(get_Klass()->oop_is_objArray(), "wrong type");
aoqi@0:   Klass* element_Klass = get_ObjArrayKlass()->bottom_klass();
aoqi@0:   _base_element_klass = CURRENT_ENV->get_klass(element_Klass);
aoqi@0:   assert(_base_element_klass->is_instance_klass() ||
aoqi@0:          _base_element_klass->is_type_array_klass(), "bad base klass");
aoqi@0:   if (dimension() == 1) {
aoqi@0:     _element_klass = _base_element_klass;
aoqi@0:   } else {
aoqi@0:     _element_klass = NULL;
aoqi@0:   }
aoqi@0:   if (!ciObjectFactory::is_initialized()) {
aoqi@0:     assert(_element_klass->is_java_lang_Object(), "only arrays of object are shared");
aoqi@0:   }
aoqi@0: }
aoqi@0: 
aoqi@0: // ------------------------------------------------------------------
aoqi@0: // ciObjArrayKlass::ciObjArrayKlass
aoqi@0: //
aoqi@0: // Constructor for unloaded object array klasses.
aoqi@0: ciObjArrayKlass::ciObjArrayKlass(ciSymbol* array_name,
aoqi@0:                                  ciKlass* base_element_klass,
aoqi@0:                                  int dimension)
aoqi@0:   : ciArrayKlass(array_name,
aoqi@0:                  dimension, T_OBJECT) {
aoqi@0:     _base_element_klass = base_element_klass;
aoqi@0:     assert(_base_element_klass->is_instance_klass() ||
aoqi@0:            _base_element_klass->is_type_array_klass(), "bad base klass");
aoqi@0:     if (dimension == 1) {
aoqi@0:       _element_klass = base_element_klass;
aoqi@0:     } else {
aoqi@0:       _element_klass = NULL;
aoqi@0:     }
aoqi@0: }
aoqi@0: 
aoqi@0: // ------------------------------------------------------------------
aoqi@0: // ciObjArrayKlass::element_klass
aoqi@0: //
aoqi@0: // What is the one-level element type of this array?
aoqi@0: ciKlass* ciObjArrayKlass::element_klass() {
aoqi@0:   if (_element_klass == NULL) {
aoqi@0:     assert(dimension() > 1, "_element_klass should not be NULL");
aoqi@0:     // Produce the element klass.
aoqi@0:     if (is_loaded()) {
aoqi@0:       VM_ENTRY_MARK;
aoqi@0:       Klass* element_Klass = get_ObjArrayKlass()->element_klass();
aoqi@0:       _element_klass = CURRENT_THREAD_ENV->get_klass(element_Klass);
aoqi@0:     } else {
aoqi@0:       VM_ENTRY_MARK;
aoqi@0:       // We are an unloaded array klass.  Attempt to fetch our
aoqi@0:       // element klass by name.
aoqi@0:       _element_klass = CURRENT_THREAD_ENV->get_klass_by_name_impl(
aoqi@0:                           this,
aoqi@0:                           constantPoolHandle(),
aoqi@0:                           construct_array_name(base_element_klass()->name(),
aoqi@0:                                                dimension() - 1),
aoqi@0:                           false);
aoqi@0:     }
aoqi@0:   }
aoqi@0:   return _element_klass;
aoqi@0: }
aoqi@0: 
aoqi@0: // ------------------------------------------------------------------
aoqi@0: // ciObjArrayKlass::construct_array_name
aoqi@0: //
aoqi@0: // Build an array name from an element name and a dimension.
aoqi@0: ciSymbol* ciObjArrayKlass::construct_array_name(ciSymbol* element_name,
aoqi@0:                                                 int dimension) {
aoqi@0:   EXCEPTION_CONTEXT;
aoqi@0:   int element_len = element_name->utf8_length();
aoqi@0: 
aoqi@0:   Symbol* base_name_sym = element_name->get_symbol();
aoqi@0:   char* name;
aoqi@0: 
aoqi@0:   if (base_name_sym->byte_at(0) == '[' ||
aoqi@0:       (base_name_sym->byte_at(0) == 'L' &&  // watch package name 'Lxx'
aoqi@0:        base_name_sym->byte_at(element_len-1) == ';')) {
aoqi@0: 
aoqi@0:     int new_len = element_len + dimension + 1; // for the ['s and '\0'
aoqi@0:     name = CURRENT_THREAD_ENV->name_buffer(new_len);
aoqi@0: 
aoqi@0:     int pos = 0;
aoqi@0:     for ( ; pos < dimension; pos++) {
aoqi@0:       name[pos] = '[';
aoqi@0:     }
aoqi@0:     strncpy(name+pos, (char*)element_name->base(), element_len);
aoqi@0:     name[new_len-1] = '\0';
aoqi@0:   } else {
aoqi@0:     int new_len =   3                       // for L, ;, and '\0'
aoqi@0:                   + dimension               // for ['s
aoqi@0:                   + element_len;
aoqi@0: 
aoqi@0:     name = CURRENT_THREAD_ENV->name_buffer(new_len);
aoqi@0:     int pos = 0;
aoqi@0:     for ( ; pos < dimension; pos++) {
aoqi@0:       name[pos] = '[';
aoqi@0:     }
aoqi@0:     name[pos++] = 'L';
aoqi@0:     strncpy(name+pos, (char*)element_name->base(), element_len);
aoqi@0:     name[new_len-2] = ';';
aoqi@0:     name[new_len-1] = '\0';
aoqi@0:   }
aoqi@0:   return ciSymbol::make(name);
aoqi@0: }
aoqi@0: 
aoqi@0: // ------------------------------------------------------------------
aoqi@0: // ciObjArrayKlass::make_impl
aoqi@0: //
aoqi@0: // Implementation of make.
aoqi@0: ciObjArrayKlass* ciObjArrayKlass::make_impl(ciKlass* element_klass) {
aoqi@0: 
aoqi@0:   if (element_klass->is_loaded()) {
aoqi@0:     EXCEPTION_CONTEXT;
aoqi@0:     // The element klass is loaded
aoqi@0:     Klass* array = element_klass->get_Klass()->array_klass(THREAD);
aoqi@0:     if (HAS_PENDING_EXCEPTION) {
aoqi@0:       CLEAR_PENDING_EXCEPTION;
aoqi@0:       CURRENT_THREAD_ENV->record_out_of_memory_failure();
aoqi@0:       return ciEnv::unloaded_ciobjarrayklass();
aoqi@0:     }
aoqi@0:     return CURRENT_THREAD_ENV->get_obj_array_klass(array);
aoqi@0:   }
aoqi@0: 
aoqi@0:   // The array klass was unable to be made or the element klass was
aoqi@0:   // not loaded.
aoqi@0:   ciSymbol* array_name = construct_array_name(element_klass->name(), 1);
aoqi@0:   if (array_name == ciEnv::unloaded_cisymbol()) {
aoqi@0:     return ciEnv::unloaded_ciobjarrayklass();
aoqi@0:   }
aoqi@0:   return
aoqi@0:     CURRENT_ENV->get_unloaded_klass(element_klass, array_name)
aoqi@0:                         ->as_obj_array_klass();
aoqi@0: }
aoqi@0: 
aoqi@0: // ------------------------------------------------------------------
aoqi@0: // ciObjArrayKlass::make
aoqi@0: //
aoqi@0: // Make an array klass corresponding to the specified primitive type.
aoqi@0: ciObjArrayKlass* ciObjArrayKlass::make(ciKlass* element_klass) {
aoqi@0:   GUARDED_VM_ENTRY(return make_impl(element_klass);)
aoqi@0: }
aoqi@0: 
aoqi@0: ciKlass* ciObjArrayKlass::exact_klass() {
aoqi@0:   ciType* base = base_element_type();
aoqi@0:   if (base->is_instance_klass()) {
aoqi@0:     ciInstanceKlass* ik = base->as_instance_klass();
aoqi@0:     if (ik->exact_klass() != NULL) {
aoqi@0:       return this;
aoqi@0:     }
aoqi@0:   } else if (base->is_primitive_type()) {
aoqi@0:     return this;
aoqi@0:   }
aoqi@0:   return NULL;
aoqi@0: }