1 /* 2 * Copyright (c) 1999, 2017, Oracle and/or its affiliates. All rights reserved. 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 * 19 * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA 20 * or visit www.oracle.com if you need additional information or have any 21 * questions. 22 * 23 */ 24 25 #include "precompiled.hpp" 26 #include "ci/ciInstanceKlass.hpp" 27 #include "ci/ciObjArrayKlass.hpp" 28 #include "ci/ciSymbol.hpp" 29 #include "ci/ciUtilities.inline.hpp" 30 #include "oops/objArrayKlass.hpp" 31 32 // ciObjArrayKlass 33 // 34 // This class represents a Klass* in the HotSpot virtual machine 35 // whose Klass part is an ObjArrayKlass. 36 37 // ------------------------------------------------------------------ 38 // ciObjArrayKlass::ciObjArrayKlass 39 // 40 // Constructor for loaded object array klasses. 41 ciObjArrayKlass::ciObjArrayKlass(Klass* k) : ciArrayKlass(k) { 42 assert(get_Klass()->is_objArray_klass(), "wrong type"); 43 Klass* element_Klass = get_ObjArrayKlass()->bottom_klass(); 44 _base_element_klass = CURRENT_ENV->get_klass(element_Klass); 45 assert(_base_element_klass->is_instance_klass() || 46 _base_element_klass->is_type_array_klass(), "bad base klass"); 47 if (dimension() == 1) { 48 _element_klass = _base_element_klass; 49 } else { 50 _element_klass = NULL; 51 } 52 if (!ciObjectFactory::is_initialized()) { 53 assert(_element_klass->is_java_lang_Object(), "only arrays of object are shared"); 54 } 55 } 56 57 // ------------------------------------------------------------------ 58 // ciObjArrayKlass::ciObjArrayKlass 59 // 60 // Constructor for unloaded object array klasses. 61 ciObjArrayKlass::ciObjArrayKlass(ciSymbol* array_name, 62 ciKlass* base_element_klass, 63 int dimension) 64 : ciArrayKlass(array_name, 65 dimension, T_OBJECT) { 66 _base_element_klass = base_element_klass; 67 assert(_base_element_klass->is_instance_klass() || 68 _base_element_klass->is_type_array_klass(), "bad base klass"); 69 if (dimension == 1) { 70 _element_klass = base_element_klass; 71 } else { 72 _element_klass = NULL; 73 } 74 } 75 76 // ------------------------------------------------------------------ 77 // ciObjArrayKlass::element_klass 78 // 79 // What is the one-level element type of this array? 80 ciKlass* ciObjArrayKlass::element_klass() { 81 if (_element_klass == NULL) { 82 assert(dimension() > 1, "_element_klass should not be NULL"); 83 // Produce the element klass. 84 if (is_loaded()) { 85 VM_ENTRY_MARK; 86 Klass* element_Klass = get_ObjArrayKlass()->element_klass(); 87 _element_klass = CURRENT_THREAD_ENV->get_klass(element_Klass); 88 } else { 89 VM_ENTRY_MARK; 90 // We are an unloaded array klass. Attempt to fetch our 91 // element klass by name. 92 _element_klass = CURRENT_THREAD_ENV->get_klass_by_name_impl( 93 this, 94 constantPoolHandle(), 95 construct_array_name(base_element_klass()->name(), 96 dimension() - 1), 97 false); 98 } 99 } 100 return _element_klass; 101 } 102 103 // ------------------------------------------------------------------ 104 // ciObjArrayKlass::construct_array_name 105 // 106 // Build an array name from an element name and a dimension. 107 ciSymbol* ciObjArrayKlass::construct_array_name(ciSymbol* element_name, 108 int dimension) { 109 EXCEPTION_CONTEXT; 110 int element_len = element_name->utf8_length(); 111 112 Symbol* base_name_sym = element_name->get_symbol(); 113 char* name; 114 115 if (base_name_sym->byte_at(0) == '[' || 116 (base_name_sym->byte_at(0) == 'L' && // watch package name 'Lxx' 117 base_name_sym->byte_at(element_len-1) == ';')) { 118 119 int new_len = element_len + dimension + 1; // for the ['s and '\0' 120 name = CURRENT_THREAD_ENV->name_buffer(new_len); 121 122 int pos = 0; 123 for ( ; pos < dimension; pos++) { 124 name[pos] = '['; 125 } 126 strncpy(name+pos, (char*)element_name->base(), element_len); 127 name[new_len-1] = '\0'; 128 } else { 129 int new_len = 3 // for L, ;, and '\0' 130 + dimension // for ['s 131 + element_len; 132 133 name = CURRENT_THREAD_ENV->name_buffer(new_len); 134 int pos = 0; 135 for ( ; pos < dimension; pos++) { 136 name[pos] = '['; 137 } 138 name[pos++] = 'L'; 139 strncpy(name+pos, (char*)element_name->base(), element_len); 140 name[new_len-2] = ';'; 141 name[new_len-1] = '\0'; 142 } 143 return ciSymbol::make(name); 144 } 145 146 // ------------------------------------------------------------------ 147 // ciObjArrayKlass::make_impl 148 // 149 // Implementation of make. 150 ciObjArrayKlass* ciObjArrayKlass::make_impl(ciKlass* element_klass) { 151 152 if (element_klass->is_loaded()) { 153 EXCEPTION_CONTEXT; 154 // The element klass is loaded 155 Klass* array = element_klass->get_Klass()->array_klass(THREAD); 156 if (HAS_PENDING_EXCEPTION) { 157 CLEAR_PENDING_EXCEPTION; 158 CURRENT_THREAD_ENV->record_out_of_memory_failure(); 159 return ciEnv::unloaded_ciobjarrayklass(); 160 } 161 return CURRENT_THREAD_ENV->get_obj_array_klass(array); 162 } 163 164 // The array klass was unable to be made or the element klass was 165 // not loaded. 166 ciSymbol* array_name = construct_array_name(element_klass->name(), 1); 167 if (array_name == ciEnv::unloaded_cisymbol()) { 168 return ciEnv::unloaded_ciobjarrayklass(); 169 } 170 return 171 CURRENT_ENV->get_unloaded_klass(element_klass, array_name) 172 ->as_obj_array_klass(); 173 } 174 175 // ------------------------------------------------------------------ 176 // ciObjArrayKlass::make 177 // 178 // Make an array klass corresponding to the specified primitive type. 179 ciObjArrayKlass* ciObjArrayKlass::make(ciKlass* element_klass) { 180 GUARDED_VM_ENTRY(return make_impl(element_klass);) 181 } 182 183 ciKlass* ciObjArrayKlass::exact_klass() { 184 ciType* base = base_element_type(); 185 if (base->is_instance_klass()) { 186 ciInstanceKlass* ik = base->as_instance_klass(); 187 if (ik->exact_klass() != NULL) { 188 return this; 189 } 190 } else if (base->is_primitive_type()) { 191 return this; 192 } 193 return NULL; 194 }